diff --git a/WebKit/WKAccessibilitySettingsObserver.ml b/WebKit/WKAccessibilitySettingsObserver.ml index b378488c..eb35d94e 100644 --- a/WebKit/WKAccessibilitySettingsObserver.ml +++ b/WebKit/WKAccessibilitySettingsObserver.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkaccessibilitysettingsobserver?language=objc}WKAccessibilitySettingsObserver} *) +let self = get_class "WKAccessibilitySettingsObserver" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let initWithImpl x self = msg_send ~self ~cmd:(selector "initWithImpl:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKAccessibilitySettingsObserverClass.ml b/WebKit/WKAccessibilitySettingsObserverClass.ml deleted file mode 100644 index 9092a5c7..00000000 --- a/WebKit/WKAccessibilitySettingsObserverClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkaccessibilitysettingsobserver?language=objc}WKAccessibilitySettingsObserver} *) - -let self = get_class "WKAccessibilitySettingsObserver" - diff --git a/WebKit/WKAccessibilityWebPageObject.ml b/WebKit/WKAccessibilityWebPageObject.ml index 3c39b8de..6678ce00 100644 --- a/WebKit/WKAccessibilityWebPageObject.ml +++ b/WebKit/WKAccessibilityWebPageObject.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkaccessibilitywebpageobject?language=objc}WKAccessibilityWebPageObject} *) +let self = get_class "WKAccessibilityWebPageObject" + let accessibilityActionNames self = msg_send ~self ~cmd:(selector "accessibilityActionNames") ~typ:(returning id) let accessibilityAttributeNames self = msg_send ~self ~cmd:(selector "accessibilityAttributeNames") ~typ:(returning id) let accessibilityAttributePositionValue self = msg_send ~self ~cmd:(selector "accessibilityAttributePositionValue") ~typ:(returning id) diff --git a/WebKit/WKAccessibilityWebPageObjectBase.ml b/WebKit/WKAccessibilityWebPageObjectBase.ml index fae9756b..074c81cf 100644 --- a/WebKit/WKAccessibilityWebPageObjectBase.ml +++ b/WebKit/WKAccessibilityWebPageObjectBase.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkaccessibilitywebpageobjectbase?language=objc}WKAccessibilityWebPageObjectBase} *) +let self = get_class "WKAccessibilityWebPageObjectBase" + let accessibilityFocusedUIElement self = msg_send ~self ~cmd:(selector "accessibilityFocusedUIElement") ~typ:(returning id) let accessibilityPluginObject self = msg_send ~self ~cmd:(selector "accessibilityPluginObject") ~typ:(returning id) let accessibilityRootObjectWrapper self = msg_send ~self ~cmd:(selector "accessibilityRootObjectWrapper") ~typ:(returning id) diff --git a/WebKit/WKAccessibilityWebPageObjectBaseClass.ml b/WebKit/WKAccessibilityWebPageObjectBaseClass.ml deleted file mode 100644 index 0e9f4e5f..00000000 --- a/WebKit/WKAccessibilityWebPageObjectBaseClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkaccessibilitywebpageobjectbase?language=objc}WKAccessibilityWebPageObjectBase} *) - -let self = get_class "WKAccessibilityWebPageObjectBase" - diff --git a/WebKit/WKAccessibilityWebPageObjectClass.ml b/WebKit/WKAccessibilityWebPageObjectClass.ml deleted file mode 100644 index f410756b..00000000 --- a/WebKit/WKAccessibilityWebPageObjectClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkaccessibilitywebpageobject?language=objc}WKAccessibilityWebPageObject} *) - -let self = get_class "WKAccessibilityWebPageObject" - diff --git a/WebKit/WKAnimationDelegate.ml b/WebKit/WKAnimationDelegate.ml index 4dadcc21..2640b380 100644 --- a/WebKit/WKAnimationDelegate.ml +++ b/WebKit/WKAnimationDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkanimationdelegate?language=objc}WKAnimationDelegate} *) +let self = get_class "WKAnimationDelegate" + 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 initWithLayerID x ~layerTreeHost self = msg_send ~self ~cmd:(selector "initWithLayerID:layerTreeHost:") ~typ:(ullong @-> (ptr void) @-> returning id) (ULLong.of_int x) layerTreeHost diff --git a/WebKit/WKAnimationDelegateClass.ml b/WebKit/WKAnimationDelegateClass.ml deleted file mode 100644 index 7a4889ff..00000000 --- a/WebKit/WKAnimationDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkanimationdelegate?language=objc}WKAnimationDelegate} *) - -let self = get_class "WKAnimationDelegate" - diff --git a/WebKit/WKBackForwardList.ml b/WebKit/WKBackForwardList.ml index 96995f09..d9afcc1b 100644 --- a/WebKit/WKBackForwardList.ml +++ b/WebKit/WKBackForwardList.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbackforwardlist?language=objc}WKBackForwardList} *) +let self = get_class "WKBackForwardList" + let backItem self = msg_send ~self ~cmd:(selector "backItem") ~typ:(returning id) let backList self = msg_send ~self ~cmd:(selector "backList") ~typ:(returning id) let currentItem self = msg_send ~self ~cmd:(selector "currentItem") ~typ:(returning id) diff --git a/WebKit/WKBackForwardListClass.ml b/WebKit/WKBackForwardListClass.ml deleted file mode 100644 index 7a0696c3..00000000 --- a/WebKit/WKBackForwardListClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbackforwardlist?language=objc}WKBackForwardList} *) - -let self = get_class "WKBackForwardList" - diff --git a/WebKit/WKBackForwardListItem.ml b/WebKit/WKBackForwardListItem.ml index 3a394d14..9428cacc 100644 --- a/WebKit/WKBackForwardListItem.ml +++ b/WebKit/WKBackForwardListItem.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbackforwardlistitem?language=objc}WKBackForwardListItem} *) +let self = get_class "WKBackForwardListItem" + 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 initialURL self = msg_send ~self ~cmd:(selector "initialURL") ~typ:(returning id) diff --git a/WebKit/WKBackForwardListItemClass.ml b/WebKit/WKBackForwardListItemClass.ml deleted file mode 100644 index 9652b333..00000000 --- a/WebKit/WKBackForwardListItemClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbackforwardlistitem?language=objc}WKBackForwardListItem} *) - -let self = get_class "WKBackForwardListItem" - diff --git a/WebKit/WKBrowsingContextController.ml b/WebKit/WKBrowsingContextController.ml index 0a057e64..b3f65d68 100644 --- a/WebKit/WKBrowsingContextController.ml +++ b/WebKit/WKBrowsingContextController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbrowsingcontextcontroller?language=objc}WKBrowsingContextController} *) +let self = get_class "WKBrowsingContextController" + let activeURL self = msg_send ~self ~cmd:(selector "activeURL") ~typ:(returning id) let applicationNameForUserAgent self = msg_send ~self ~cmd:(selector "applicationNameForUserAgent") ~typ:(returning id) let backForwardList self = msg_send ~self ~cmd:(selector "backForwardList") ~typ:(returning id) diff --git a/WebKit/WKBrowsingContextControllerClass.ml b/WebKit/WKBrowsingContextControllerClass.ml index 62d4b395..bdfffc19 100644 --- a/WebKit/WKBrowsingContextControllerClass.ml +++ b/WebKit/WKBrowsingContextControllerClass.ml @@ -4,13 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbrowsingcontextcontroller?language=objc}WKBrowsingContextController} *) -let self = get_class "WKBrowsingContextController" - let customSchemes self = msg_send ~self ~cmd:(selector "customSchemes") ~typ:(returning id) let registerSchemeForCustomProtocol x self = msg_send ~self ~cmd:(selector "registerSchemeForCustomProtocol:") ~typ:(id @-> returning void) x let unregisterSchemeForCustomProtocol x self = msg_send ~self ~cmd:(selector "unregisterSchemeForCustomProtocol:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKBrowsingContextGroup.ml b/WebKit/WKBrowsingContextGroup.ml index 31bd6d2d..9126c7bd 100644 --- a/WebKit/WKBrowsingContextGroup.ml +++ b/WebKit/WKBrowsingContextGroup.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbrowsingcontextgroup?language=objc}WKBrowsingContextGroup} *) +let self = get_class "WKBrowsingContextGroup" + let addUserScript x ~baseURL ~includeMatchPatternStrings ~excludeMatchPatternStrings ~injectionTime ~mainFrameOnly self = msg_send ~self ~cmd:(selector "addUserScript:baseURL:includeMatchPatternStrings:excludeMatchPatternStrings:injectionTime:mainFrameOnly:") ~typ:(id @-> id @-> id @-> id @-> int @-> bool @-> returning void) x baseURL includeMatchPatternStrings excludeMatchPatternStrings injectionTime mainFrameOnly let addUserStyleSheet x ~baseURL ~includeMatchPatternStrings ~excludeMatchPatternStrings ~mainFrameOnly self = msg_send ~self ~cmd:(selector "addUserStyleSheet:baseURL:includeMatchPatternStrings:excludeMatchPatternStrings:mainFrameOnly:") ~typ:(id @-> id @-> id @-> id @-> bool @-> returning void) x baseURL includeMatchPatternStrings excludeMatchPatternStrings mainFrameOnly let allowsJavaScript self = msg_send ~self ~cmd:(selector "allowsJavaScript") ~typ:(returning bool) diff --git a/WebKit/WKBrowsingContextGroupClass.ml b/WebKit/WKBrowsingContextGroupClass.ml deleted file mode 100644 index a051e2b3..00000000 --- a/WebKit/WKBrowsingContextGroupClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbrowsingcontextgroup?language=objc}WKBrowsingContextGroup} *) - -let self = get_class "WKBrowsingContextGroup" - diff --git a/WebKit/WKBrowsingContextHandle.ml b/WebKit/WKBrowsingContextHandle.ml index 107fe0a6..74b6f8bf 100644 --- a/WebKit/WKBrowsingContextHandle.ml +++ b/WebKit/WKBrowsingContextHandle.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbrowsingcontexthandle?language=objc}WKBrowsingContextHandle} *) +let self = get_class "WKBrowsingContextHandle" + 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 diff --git a/WebKit/WKBrowsingContextHandleClass.ml b/WebKit/WKBrowsingContextHandleClass.ml index 4f1b2f61..57139429 100644 --- a/WebKit/WKBrowsingContextHandleClass.ml +++ b/WebKit/WKBrowsingContextHandleClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkbrowsingcontexthandle?language=objc}WKBrowsingContextHandle} *) -let self = get_class "WKBrowsingContextHandle" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKColorPopoverMac.ml b/WebKit/WKColorPopoverMac.ml index b6ca3bef..720f5653 100644 --- a/WebKit/WKColorPopoverMac.ml +++ b/WebKit/WKColorPopoverMac.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcolorpopovermac?language=objc}WKColorPopoverMac} *) +let self = get_class "WKColorPopoverMac" + let didChooseColor x self = msg_send ~self ~cmd:(selector "didChooseColor:") ~typ:(id @-> returning void) x let didClosePopover self = msg_send ~self ~cmd:(selector "didClosePopover") ~typ:(returning void) let initWithFrame x ~inView self = msg_send ~self ~cmd:(selector "initWithFrame:inView:") ~typ:((ptr void) @-> id @-> returning id) x inView diff --git a/WebKit/WKColorPopoverMacClass.ml b/WebKit/WKColorPopoverMacClass.ml deleted file mode 100644 index 061fad48..00000000 --- a/WebKit/WKColorPopoverMacClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcolorpopovermac?language=objc}WKColorPopoverMac} *) - -let self = get_class "WKColorPopoverMac" - diff --git a/WebKit/WKConnection.ml b/WebKit/WKConnection.ml index 92420972..16732b29 100644 --- a/WebKit/WKConnection.ml +++ b/WebKit/WKConnection.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkconnection?language=objc}WKConnection} *) +let self = get_class "WKConnection" + 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 sendMessageWithName x ~body self = msg_send ~self ~cmd:(selector "sendMessageWithName:body:") ~typ:(id @-> id @-> returning void) x body diff --git a/WebKit/WKConnectionClass.ml b/WebKit/WKConnectionClass.ml deleted file mode 100644 index 31af3d59..00000000 --- a/WebKit/WKConnectionClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkconnection?language=objc}WKConnection} *) - -let self = get_class "WKConnection" - diff --git a/WebKit/WKContactPicker.ml b/WebKit/WKContactPicker.ml index db07c550..0668b703 100644 --- a/WebKit/WKContactPicker.ml +++ b/WebKit/WKContactPicker.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontactpicker?language=objc}WKContactPicker} *) +let self = get_class "WKContactPicker" + let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let dismissWithContacts x self = msg_send ~self ~cmd:(selector "dismissWithContacts:") ~typ:(id @-> returning void) x let initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x diff --git a/WebKit/WKContactPickerClass.ml b/WebKit/WKContactPickerClass.ml deleted file mode 100644 index a3d99425..00000000 --- a/WebKit/WKContactPickerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontactpicker?language=objc}WKContactPicker} *) - -let self = get_class "WKContactPicker" - diff --git a/WebKit/WKContentRuleList.ml b/WebKit/WKContentRuleList.ml index 6ba84c8e..a6e7087d 100644 --- a/WebKit/WKContentRuleList.ml +++ b/WebKit/WKContentRuleList.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentrulelist?language=objc}WKContentRuleList} *) +let self = get_class "WKContentRuleList" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKContentRuleListClass.ml b/WebKit/WKContentRuleListClass.ml deleted file mode 100644 index d2a9915c..00000000 --- a/WebKit/WKContentRuleListClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentrulelist?language=objc}WKContentRuleList} *) - -let self = get_class "WKContentRuleList" - diff --git a/WebKit/WKContentRuleListStore.ml b/WebKit/WKContentRuleListStore.ml index 6628d8a6..bcc9f0d7 100644 --- a/WebKit/WKContentRuleListStore.ml +++ b/WebKit/WKContentRuleListStore.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentruleliststore?language=objc}WKContentRuleListStore} *) +let self = get_class "WKContentRuleListStore" + let compileContentExtensionForIdentifier x ~encodedContentExtension ~completionHandler self = msg_send ~self ~cmd:(selector "compileContentExtensionForIdentifier:encodedContentExtension:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x encodedContentExtension completionHandler let compileContentRuleListForIdentifier x ~encodedContentRuleList ~completionHandler self = msg_send ~self ~cmd:(selector "compileContentRuleListForIdentifier:encodedContentRuleList:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x encodedContentRuleList completionHandler let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/WebKit/WKContentRuleListStoreClass.ml b/WebKit/WKContentRuleListStoreClass.ml index 35cb8506..66fce4a5 100644 --- a/WebKit/WKContentRuleListStoreClass.ml +++ b/WebKit/WKContentRuleListStoreClass.ml @@ -4,13 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentruleliststore?language=objc}WKContentRuleListStore} *) -let self = get_class "WKContentRuleListStore" - let defaultStore self = msg_send ~self ~cmd:(selector "defaultStore") ~typ:(returning id) let defaultStoreWithLegacyFilename self = msg_send ~self ~cmd:(selector "defaultStoreWithLegacyFilename") ~typ:(returning id) let storeWithURL x self = msg_send ~self ~cmd:(selector "storeWithURL:") ~typ:(id @-> returning id) x diff --git a/WebKit/WKContentView.ml b/WebKit/WKContentView.ml index 5c962170..47131e96 100644 --- a/WebKit/WKContentView.ml +++ b/WebKit/WKContentView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentview?language=objc}WKContentView} *) +let self = get_class "WKContentView" + let initWithFrame x ~page self = msg_send ~self ~cmd:(selector "initWithFrame:page:") ~typ:(CGRect.t @-> (ptr void) @-> returning id) x page let isFlipped self = msg_send ~self ~cmd:(selector "isFlipped") ~typ:(returning bool) let setSizeChangedSinceLastVisibleContentRectUpdate x self = msg_send ~self ~cmd:(selector "setSizeChangedSinceLastVisibleContentRectUpdate:") ~typ:(bool @-> returning void) x diff --git a/WebKit/WKContentViewClass.ml b/WebKit/WKContentViewClass.ml deleted file mode 100644 index bdf71555..00000000 --- a/WebKit/WKContentViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentview?language=objc}WKContentView} *) - -let self = get_class "WKContentView" - diff --git a/WebKit/WKContentWorld.ml b/WebKit/WKContentWorld.ml index 4f638511..0b293b82 100644 --- a/WebKit/WKContentWorld.ml +++ b/WebKit/WKContentWorld.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentworld?language=objc}WKContentWorld} *) +let self = get_class "WKContentWorld" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKContentWorldClass.ml b/WebKit/WKContentWorldClass.ml index 35b7d742..cf014c2c 100644 --- a/WebKit/WKContentWorldClass.ml +++ b/WebKit/WKContentWorldClass.ml @@ -4,13 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcontentworld?language=objc}WKContentWorld} *) -let self = get_class "WKContentWorld" - let defaultClientWorld self = msg_send ~self ~cmd:(selector "defaultClientWorld") ~typ:(returning id) let pageWorld self = msg_send ~self ~cmd:(selector "pageWorld") ~typ:(returning id) let worldWithName x self = msg_send ~self ~cmd:(selector "worldWithName:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKCustomProtocol.ml b/WebKit/WKCustomProtocol.ml index 9d34b6bd..5fe10952 100644 --- a/WebKit/WKCustomProtocol.ml +++ b/WebKit/WKCustomProtocol.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcustomprotocol?language=objc}WKCustomProtocol} *) +let self = get_class "WKCustomProtocol" + let customProtocolID self = msg_send ~self ~cmd:(selector "customProtocolID") ~typ:(returning id) let initWithRequest x ~cachedResponse ~client self = msg_send ~self ~cmd:(selector "initWithRequest:cachedResponse:client:") ~typ:(id @-> id @-> id @-> returning id) x cachedResponse client let initializationRunLoop self = msg_send ~self ~cmd:(selector "initializationRunLoop") ~typ:(returning (ptr CFRunLoop.t)) diff --git a/WebKit/WKCustomProtocolClass.ml b/WebKit/WKCustomProtocolClass.ml index 609a11bb..a757ab2a 100644 --- a/WebKit/WKCustomProtocolClass.ml +++ b/WebKit/WKCustomProtocolClass.ml @@ -4,13 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcustomprotocol?language=objc}WKCustomProtocol} *) -let self = get_class "WKCustomProtocol" - let canInitWithRequest x self = msg_send ~self ~cmd:(selector "canInitWithRequest:") ~typ:(id @-> returning bool) x let canonicalRequestForRequest x self = msg_send ~self ~cmd:(selector "canonicalRequestForRequest:") ~typ:(id @-> returning id) x let requestIsCacheEquivalent x ~toRequest self = msg_send ~self ~cmd:(selector "requestIsCacheEquivalent:toRequest:") ~typ:(id @-> id @-> returning bool) x toRequest \ No newline at end of file diff --git a/WebKit/WKCustomProtocolLoader.ml b/WebKit/WKCustomProtocolLoader.ml index e8c06199..f1051b8b 100644 --- a/WebKit/WKCustomProtocolLoader.ml +++ b/WebKit/WKCustomProtocolLoader.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcustomprotocolloader?language=objc}WKCustomProtocolLoader} *) +let self = get_class "WKCustomProtocolLoader" + let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) let connection x ~didFailWithError self = msg_send ~self ~cmd:(selector "connection:didFailWithError:") ~typ:(id @-> id @-> returning void) x didFailWithError let connection1 x ~didReceiveData self = msg_send ~self ~cmd:(selector "connection:didReceiveData:") ~typ:(id @-> id @-> returning void) x didReceiveData diff --git a/WebKit/WKCustomProtocolLoaderClass.ml b/WebKit/WKCustomProtocolLoaderClass.ml deleted file mode 100644 index 87c54eee..00000000 --- a/WebKit/WKCustomProtocolLoaderClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkcustomprotocolloader?language=objc}WKCustomProtocolLoader} *) - -let self = get_class "WKCustomProtocolLoader" - diff --git a/WebKit/WKDOMDocument.ml b/WebKit/WKDOMDocument.ml index 4175e71d..e4af484c 100644 --- a/WebKit/WKDOMDocument.ml +++ b/WebKit/WKDOMDocument.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomdocument?language=objc}WKDOMDocument} *) +let self = get_class "WKDOMDocument" + let body self = msg_send ~self ~cmd:(selector "body") ~typ:(returning id) let createDocumentFragmentWithMarkupString x ~baseURL self = msg_send ~self ~cmd:(selector "createDocumentFragmentWithMarkupString:baseURL:") ~typ:(id @-> id @-> returning id) x baseURL let createDocumentFragmentWithText x self = msg_send ~self ~cmd:(selector "createDocumentFragmentWithText:") ~typ:(id @-> returning id) x diff --git a/WebKit/WKDOMDocumentClass.ml b/WebKit/WKDOMDocumentClass.ml deleted file mode 100644 index 265aa8bd..00000000 --- a/WebKit/WKDOMDocumentClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomdocument?language=objc}WKDOMDocument} *) - -let self = get_class "WKDOMDocument" - diff --git a/WebKit/WKDOMElement.ml b/WebKit/WKDOMElement.ml index f85e0d44..19c8def1 100644 --- a/WebKit/WKDOMElement.ml +++ b/WebKit/WKDOMElement.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomelement?language=objc}WKDOMElement} *) +let self = get_class "WKDOMElement" + let getAttribute x self = msg_send ~self ~cmd:(selector "getAttribute:") ~typ:(id @-> returning id) x let hasAttribute x self = msg_send ~self ~cmd:(selector "hasAttribute:") ~typ:(id @-> returning bool) x let setAttribute x ~value self = msg_send ~self ~cmd:(selector "setAttribute:value:") ~typ:(id @-> id @-> returning void) x value diff --git a/WebKit/WKDOMElementClass.ml b/WebKit/WKDOMElementClass.ml deleted file mode 100644 index 9829ae14..00000000 --- a/WebKit/WKDOMElementClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomelement?language=objc}WKDOMElement} *) - -let self = get_class "WKDOMElement" - diff --git a/WebKit/WKDOMNode.ml b/WebKit/WKDOMNode.ml index d258c54e..81d5776a 100644 --- a/WebKit/WKDOMNode.ml +++ b/WebKit/WKDOMNode.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomnode?language=objc}WKDOMNode} *) +let self = get_class "WKDOMNode" + let appendChild x self = msg_send ~self ~cmd:(selector "appendChild:") ~typ:(id @-> returning void) x let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let document self = msg_send ~self ~cmd:(selector "document") ~typ:(returning id) diff --git a/WebKit/WKDOMNodeClass.ml b/WebKit/WKDOMNodeClass.ml deleted file mode 100644 index 648685df..00000000 --- a/WebKit/WKDOMNodeClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomnode?language=objc}WKDOMNode} *) - -let self = get_class "WKDOMNode" - diff --git a/WebKit/WKDOMPasteMenuDelegate.ml b/WebKit/WKDOMPasteMenuDelegate.ml index bfd9891e..4f63d2d2 100644 --- a/WebKit/WKDOMPasteMenuDelegate.ml +++ b/WebKit/WKDOMPasteMenuDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdompastemenudelegate?language=objc}WKDOMPasteMenuDelegate} *) +let self = get_class "WKDOMPasteMenuDelegate" + let confinementRectForMenu x ~onScreen self = msg_send ~self ~cmd:(selector "confinementRectForMenu:onScreen:") ~typ:(id @-> id @-> returning CGRect.t) x onScreen let initWithWebViewImpl x ~pasteAccessCategory self = msg_send ~self ~cmd:(selector "initWithWebViewImpl:pasteAccessCategory:") ~typ:((ptr void) @-> uchar @-> returning id) x pasteAccessCategory let menuDidClose x self = msg_send ~self ~cmd:(selector "menuDidClose:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKDOMPasteMenuDelegateClass.ml b/WebKit/WKDOMPasteMenuDelegateClass.ml deleted file mode 100644 index 19dfff18..00000000 --- a/WebKit/WKDOMPasteMenuDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdompastemenudelegate?language=objc}WKDOMPasteMenuDelegate} *) - -let self = get_class "WKDOMPasteMenuDelegate" - diff --git a/WebKit/WKDOMRange.ml b/WebKit/WKDOMRange.ml index 43dbff6f..97173b6b 100644 --- a/WebKit/WKDOMRange.ml +++ b/WebKit/WKDOMRange.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomrange?language=objc}WKDOMRange} *) +let self = get_class "WKDOMRange" + let collapse x self = msg_send ~self ~cmd:(selector "collapse:") ~typ:(bool @-> returning void) x let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let endContainer self = msg_send ~self ~cmd:(selector "endContainer") ~typ:(returning id) diff --git a/WebKit/WKDOMRangeClass.ml b/WebKit/WKDOMRangeClass.ml deleted file mode 100644 index c3e44f8d..00000000 --- a/WebKit/WKDOMRangeClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomrange?language=objc}WKDOMRange} *) - -let self = get_class "WKDOMRange" - diff --git a/WebKit/WKDOMText.ml b/WebKit/WKDOMText.ml index e4e209ff..a0666ca1 100644 --- a/WebKit/WKDOMText.ml +++ b/WebKit/WKDOMText.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomtext?language=objc}WKDOMText} *) +let self = get_class "WKDOMText" + let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning id) let setData x self = msg_send ~self ~cmd:(selector "setData:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKDOMTextClass.ml b/WebKit/WKDOMTextClass.ml deleted file mode 100644 index c8cb043f..00000000 --- a/WebKit/WKDOMTextClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomtext?language=objc}WKDOMText} *) - -let self = get_class "WKDOMText" - diff --git a/WebKit/WKDOMTextIterator.ml b/WebKit/WKDOMTextIterator.ml index 7c459cb7..1e1dbb73 100644 --- a/WebKit/WKDOMTextIterator.ml +++ b/WebKit/WKDOMTextIterator.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomtextiterator?language=objc}WKDOMTextIterator} *) +let self = get_class "WKDOMTextIterator" + let advance self = msg_send ~self ~cmd:(selector "advance") ~typ:(returning void) let atEnd self = msg_send ~self ~cmd:(selector "atEnd") ~typ:(returning bool) let currentRange self = msg_send ~self ~cmd:(selector "currentRange") ~typ:(returning id) diff --git a/WebKit/WKDOMTextIteratorClass.ml b/WebKit/WKDOMTextIteratorClass.ml deleted file mode 100644 index 6cf4d6ef..00000000 --- a/WebKit/WKDOMTextIteratorClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdomtextiterator?language=objc}WKDOMTextIterator} *) - -let self = get_class "WKDOMTextIterator" - diff --git a/WebKit/WKDataListSuggestionTableView.ml b/WebKit/WKDataListSuggestionTableView.ml index c965887e..882a10af 100644 --- a/WebKit/WKDataListSuggestionTableView.ml +++ b/WebKit/WKDataListSuggestionTableView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestiontableview?language=objc}WKDataListSuggestionTableView} *) +let self = get_class "WKDataListSuggestionTableView" + let acceptsFirstResponder self = msg_send ~self ~cmd:(selector "acceptsFirstResponder") ~typ:(returning bool) let initWithElementRect x self = msg_send ~self ~cmd:(selector "initWithElementRect:") ~typ:((ptr void) @-> returning id) x let reload self = msg_send ~self ~cmd:(selector "reload") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKDataListSuggestionTableViewClass.ml b/WebKit/WKDataListSuggestionTableViewClass.ml deleted file mode 100644 index 5a3a3946..00000000 --- a/WebKit/WKDataListSuggestionTableViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestiontableview?language=objc}WKDataListSuggestionTableView} *) - -let self = get_class "WKDataListSuggestionTableView" - diff --git a/WebKit/WKDataListSuggestionView.ml b/WebKit/WKDataListSuggestionView.ml index 92ed8689..058dde6a 100644 --- a/WebKit/WKDataListSuggestionView.ml +++ b/WebKit/WKDataListSuggestionView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestionview?language=objc}WKDataListSuggestionView} *) +let self = get_class "WKDataListSuggestionView" + let acceptsFirstResponder self = msg_send ~self ~cmd:(selector "acceptsFirstResponder") ~typ:(returning bool) let initWithFrame x self = msg_send ~self ~cmd:(selector "initWithFrame:") ~typ:(CGRect.t @-> returning id) x let layout self = msg_send ~self ~cmd:(selector "layout") ~typ:(returning void) diff --git a/WebKit/WKDataListSuggestionViewClass.ml b/WebKit/WKDataListSuggestionViewClass.ml deleted file mode 100644 index cff632c0..00000000 --- a/WebKit/WKDataListSuggestionViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestionview?language=objc}WKDataListSuggestionView} *) - -let self = get_class "WKDataListSuggestionView" - diff --git a/WebKit/WKDataListSuggestionWindow.ml b/WebKit/WKDataListSuggestionWindow.ml index ef3247ff..83af2ba0 100644 --- a/WebKit/WKDataListSuggestionWindow.ml +++ b/WebKit/WKDataListSuggestionWindow.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestionwindow?language=objc}WKDataListSuggestionWindow} *) +let self = get_class "WKDataListSuggestionWindow" + let canBecomeKeyWindow self = msg_send ~self ~cmd:(selector "canBecomeKeyWindow") ~typ:(returning bool) let hasKeyAppearance self = msg_send ~self ~cmd:(selector "hasKeyAppearance") ~typ:(returning bool) let initWithContentRect x ~styleMask ~backing ~defer self = msg_send ~self ~cmd:(selector "initWithContentRect:styleMask:backing:defer:") ~typ:(CGRect.t @-> ullong @-> ullong @-> bool @-> returning id) x (ULLong.of_int styleMask) (ULLong.of_int backing) defer diff --git a/WebKit/WKDataListSuggestionWindowClass.ml b/WebKit/WKDataListSuggestionWindowClass.ml deleted file mode 100644 index 1b3ca72a..00000000 --- a/WebKit/WKDataListSuggestionWindowClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestionwindow?language=objc}WKDataListSuggestionWindow} *) - -let self = get_class "WKDataListSuggestionWindow" - diff --git a/WebKit/WKDataListSuggestionsController.ml b/WebKit/WKDataListSuggestionsController.ml index acbcc38b..80e29508 100644 --- a/WebKit/WKDataListSuggestionsController.ml +++ b/WebKit/WKDataListSuggestionsController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestionscontroller?language=objc}WKDataListSuggestionsController} *) +let self = get_class "WKDataListSuggestionsController" + let currentSelectedString self = msg_send ~self ~cmd:(selector "currentSelectedString") ~typ:(returning void) let dropdownRectForElementRect x self = msg_send ~self ~cmd:(selector "dropdownRectForElementRect:") ~typ:((ptr void) @-> returning CGRect.t) x let initWithInformation x ~inView self = msg_send ~self ~cmd:(selector "initWithInformation:inView:") ~typ:((ptr void) @-> id @-> returning id) x inView diff --git a/WebKit/WKDataListSuggestionsControllerClass.ml b/WebKit/WKDataListSuggestionsControllerClass.ml deleted file mode 100644 index 4b0c977e..00000000 --- a/WebKit/WKDataListSuggestionsControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatalistsuggestionscontroller?language=objc}WKDataListSuggestionsController} *) - -let self = get_class "WKDataListSuggestionsController" - diff --git a/WebKit/WKDateTimePicker.ml b/WebKit/WKDateTimePicker.ml index 894df78b..b7d70960 100644 --- a/WebKit/WKDateTimePicker.ml +++ b/WebKit/WKDateTimePicker.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatetimepicker?language=objc}WKDateTimePicker} *) +let self = get_class "WKDateTimePicker" + let dateFormatStringForType x self = msg_send ~self ~cmd:(selector "dateFormatStringForType:") ~typ:(id @-> returning id) x let didChooseDate x self = msg_send ~self ~cmd:(selector "didChooseDate:") ~typ:(id @-> returning void) x let initWithParams x ~inView self = msg_send ~self ~cmd:(selector "initWithParams:inView:") ~typ:((ptr void) @-> id @-> returning id) x inView diff --git a/WebKit/WKDateTimePickerClass.ml b/WebKit/WKDateTimePickerClass.ml deleted file mode 100644 index 2cdfc6ed..00000000 --- a/WebKit/WKDateTimePickerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatetimepicker?language=objc}WKDateTimePicker} *) - -let self = get_class "WKDateTimePicker" - diff --git a/WebKit/WKDateTimePickerWindow.ml b/WebKit/WKDateTimePickerWindow.ml index 465c8af7..449466cb 100644 --- a/WebKit/WKDateTimePickerWindow.ml +++ b/WebKit/WKDateTimePickerWindow.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatetimepickerwindow?language=objc}WKDateTimePickerWindow} *) +let self = get_class "WKDateTimePickerWindow" + let canBecomeKeyWindow self = msg_send ~self ~cmd:(selector "canBecomeKeyWindow") ~typ:(returning bool) let hasKeyAppearance self = msg_send ~self ~cmd:(selector "hasKeyAppearance") ~typ:(returning bool) let initWithContentRect x ~styleMask ~backing ~defer self = msg_send ~self ~cmd:(selector "initWithContentRect:styleMask:backing:defer:") ~typ:(CGRect.t @-> ullong @-> ullong @-> bool @-> returning id) x (ULLong.of_int styleMask) (ULLong.of_int backing) defer diff --git a/WebKit/WKDateTimePickerWindowClass.ml b/WebKit/WKDateTimePickerWindowClass.ml deleted file mode 100644 index 9249402e..00000000 --- a/WebKit/WKDateTimePickerWindowClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdatetimepickerwindow?language=objc}WKDateTimePickerWindow} *) - -let self = get_class "WKDateTimePickerWindow" - diff --git a/WebKit/WKDownload.ml b/WebKit/WKDownload.ml index 53f674d7..488271c9 100644 --- a/WebKit/WKDownload.ml +++ b/WebKit/WKDownload.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdownload?language=objc}WKDownload} *) +let self = get_class "WKDownload" + let cancel x self = msg_send ~self ~cmd:(selector "cancel:") ~typ:((ptr void) @-> 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) diff --git a/WebKit/WKDownloadClass.ml b/WebKit/WKDownloadClass.ml deleted file mode 100644 index acd243a8..00000000 --- a/WebKit/WKDownloadClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdownload?language=objc}WKDownload} *) - -let self = get_class "WKDownload" - diff --git a/WebKit/WKDownloadProgress.ml b/WebKit/WKDownloadProgress.ml index c45f0953..bccc30d7 100644 --- a/WebKit/WKDownloadProgress.ml +++ b/WebKit/WKDownloadProgress.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdownloadprogress?language=objc}WKDownloadProgress} *) +let self = get_class "WKDownloadProgress" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let initWithDownloadTask x ~download ~_URL ~sandboxExtension self = msg_send ~self ~cmd:(selector "initWithDownloadTask:download:URL:sandboxExtension:") ~typ:(id @-> (ptr void) @-> id @-> id @-> returning id) x download _URL sandboxExtension 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 diff --git a/WebKit/WKDownloadProgressClass.ml b/WebKit/WKDownloadProgressClass.ml deleted file mode 100644 index 0fde21c5..00000000 --- a/WebKit/WKDownloadProgressClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkdownloadprogress?language=objc}WKDownloadProgress} *) - -let self = get_class "WKDownloadProgress" - diff --git a/WebKit/WKEditCommand.ml b/WebKit/WKEditCommand.ml index 5d713da0..53887447 100644 --- a/WebKit/WKEditCommand.ml +++ b/WebKit/WKEditCommand.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkeditcommand?language=objc}WKEditCommand} *) +let self = get_class "WKEditCommand" + let command self = msg_send ~self ~cmd:(selector "command") ~typ:(returning (ptr void)) let initWithWebEditCommandProxy x self = msg_send ~self ~cmd:(selector "initWithWebEditCommandProxy:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKEditCommandClass.ml b/WebKit/WKEditCommandClass.ml deleted file mode 100644 index e2bb9638..00000000 --- a/WebKit/WKEditCommandClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkeditcommand?language=objc}WKEditCommand} *) - -let self = get_class "WKEditCommand" - diff --git a/WebKit/WKEditorUndoTarget.ml b/WebKit/WKEditorUndoTarget.ml index 01400db4..f36ec1f8 100644 --- a/WebKit/WKEditorUndoTarget.ml +++ b/WebKit/WKEditorUndoTarget.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkeditorundotarget?language=objc}WKEditorUndoTarget} *) +let self = get_class "WKEditorUndoTarget" + let redoEditing x self = msg_send ~self ~cmd:(selector "redoEditing:") ~typ:(id @-> returning void) x let undoEditing x self = msg_send ~self ~cmd:(selector "undoEditing:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKEditorUndoTargetClass.ml b/WebKit/WKEditorUndoTargetClass.ml deleted file mode 100644 index 9ae32da3..00000000 --- a/WebKit/WKEditorUndoTargetClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkeditorundotarget?language=objc}WKEditorUndoTarget} *) - -let self = get_class "WKEditorUndoTarget" - diff --git a/WebKit/WKEmptyPresenterHighlightDelegate.ml b/WebKit/WKEmptyPresenterHighlightDelegate.ml index 92ba30b8..07a15c28 100644 --- a/WebKit/WKEmptyPresenterHighlightDelegate.ml +++ b/WebKit/WKEmptyPresenterHighlightDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkemptypresenterhighlightdelegate?language=objc}WKEmptyPresenterHighlightDelegate} *) +let self = get_class "WKEmptyPresenterHighlightDelegate" + let initWithRect x self = msg_send ~self ~cmd:(selector "initWithRect:") ~typ:(CGRect.t @-> returning id) x let rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) let revealContext x ~rectsForItem self = msg_send ~self ~cmd:(selector "revealContext:rectsForItem:") ~typ:(id @-> id @-> returning id) x rectsForItem diff --git a/WebKit/WKEmptyPresenterHighlightDelegateClass.ml b/WebKit/WKEmptyPresenterHighlightDelegateClass.ml deleted file mode 100644 index e8559fb3..00000000 --- a/WebKit/WKEmptyPresenterHighlightDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkemptypresenterhighlightdelegate?language=objc}WKEmptyPresenterHighlightDelegate} *) - -let self = get_class "WKEmptyPresenterHighlightDelegate" - diff --git a/WebKit/WKFindConfiguration.ml b/WebKit/WKFindConfiguration.ml index 1c45c8ae..57ef3145 100644 --- a/WebKit/WKFindConfiguration.ml +++ b/WebKit/WKFindConfiguration.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfindconfiguration?language=objc}WKFindConfiguration} *) +let self = get_class "WKFindConfiguration" + let backwards self = msg_send ~self ~cmd:(selector "backwards") ~typ:(returning bool) let caseSensitive self = msg_send ~self ~cmd:(selector "caseSensitive") ~typ:(returning bool) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/WebKit/WKFindConfigurationClass.ml b/WebKit/WKFindConfigurationClass.ml deleted file mode 100644 index 6d978f66..00000000 --- a/WebKit/WKFindConfigurationClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfindconfiguration?language=objc}WKFindConfiguration} *) - -let self = get_class "WKFindConfiguration" - diff --git a/WebKit/WKFindResult.ml b/WebKit/WKFindResult.ml index 3c1bc0e2..f17146f4 100644 --- a/WebKit/WKFindResult.ml +++ b/WebKit/WKFindResult.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfindresult?language=objc}WKFindResult} *) +let self = get_class "WKFindResult" + 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 matchFound self = msg_send ~self ~cmd:(selector "matchFound") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKFindResultClass.ml b/WebKit/WKFindResultClass.ml deleted file mode 100644 index 9ac2b339..00000000 --- a/WebKit/WKFindResultClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfindresult?language=objc}WKFindResult} *) - -let self = get_class "WKFindResult" - diff --git a/WebKit/WKFlippedView.ml b/WebKit/WKFlippedView.ml index 3d14ea9a..fdeaf033 100644 --- a/WebKit/WKFlippedView.ml +++ b/WebKit/WKFlippedView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkflippedview?language=objc}WKFlippedView} *) +let self = get_class "WKFlippedView" + 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 isFlipped self = msg_send ~self ~cmd:(selector "isFlipped") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKFlippedViewClass.ml b/WebKit/WKFlippedViewClass.ml deleted file mode 100644 index e00a5334..00000000 --- a/WebKit/WKFlippedViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkflippedview?language=objc}WKFlippedView} *) - -let self = get_class "WKFlippedView" - diff --git a/WebKit/WKFrameInfo.ml b/WebKit/WKFrameInfo.ml index eb97220d..7252197a 100644 --- a/WebKit/WKFrameInfo.ml +++ b/WebKit/WKFrameInfo.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkframeinfo?language=objc}WKFrameInfo} *) +let self = get_class "WKFrameInfo" + 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) diff --git a/WebKit/WKFrameInfoClass.ml b/WebKit/WKFrameInfoClass.ml deleted file mode 100644 index c6dda634..00000000 --- a/WebKit/WKFrameInfoClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkframeinfo?language=objc}WKFrameInfo} *) - -let self = get_class "WKFrameInfo" - diff --git a/WebKit/WKFullKeyboardAccessWatcher.ml b/WebKit/WKFullKeyboardAccessWatcher.ml index 5b71f717..45f85add 100644 --- a/WebKit/WKFullKeyboardAccessWatcher.ml +++ b/WebKit/WKFullKeyboardAccessWatcher.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfullkeyboardaccesswatcher?language=objc}WKFullKeyboardAccessWatcher} *) +let self = get_class "WKFullKeyboardAccessWatcher" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let notifyAllProcessPools self = msg_send ~self ~cmd:(selector "notifyAllProcessPools") ~typ:(returning void) let retrieveKeyboardUIModeFromPreferences x self = msg_send ~self ~cmd:(selector "retrieveKeyboardUIModeFromPreferences:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKFullKeyboardAccessWatcherClass.ml b/WebKit/WKFullKeyboardAccessWatcherClass.ml index e6be1eaa..2a67d812 100644 --- a/WebKit/WKFullKeyboardAccessWatcherClass.ml +++ b/WebKit/WKFullKeyboardAccessWatcherClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfullkeyboardaccesswatcher?language=objc}WKFullKeyboardAccessWatcher} *) -let self = get_class "WKFullKeyboardAccessWatcher" - let fullKeyboardAccessEnabled self = msg_send ~self ~cmd:(selector "fullKeyboardAccessEnabled") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKFullScreenWindowController.ml b/WebKit/WKFullScreenWindowController.ml index 214687a6..5ca525d3 100644 --- a/WebKit/WKFullScreenWindowController.ml +++ b/WebKit/WKFullScreenWindowController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfullscreenwindowcontroller?language=objc}WKFullScreenWindowController} *) +let self = get_class "WKFullScreenWindowController" + let beganEnterFullScreenWithInitialFrame x ~finalFrame self = msg_send ~self ~cmd:(selector "beganEnterFullScreenWithInitialFrame:finalFrame:") ~typ:(CGRect.t @-> CGRect.t @-> returning void) x finalFrame let beganExitFullScreenWithInitialFrame x ~finalFrame self = msg_send ~self ~cmd:(selector "beganExitFullScreenWithInitialFrame:finalFrame:") ~typ:(CGRect.t @-> CGRect.t @-> returning void) x finalFrame let cancelOperation x self = msg_send ~self ~cmd:(selector "cancelOperation:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKFullScreenWindowControllerClass.ml b/WebKit/WKFullScreenWindowControllerClass.ml deleted file mode 100644 index 5d74a2d7..00000000 --- a/WebKit/WKFullScreenWindowControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkfullscreenwindowcontroller?language=objc}WKFullScreenWindowController} *) - -let self = get_class "WKFullScreenWindowController" - diff --git a/WebKit/WKGroupActivitiesCoordinatorDelegate.ml b/WebKit/WKGroupActivitiesCoordinatorDelegate.ml index aca24beb..cdb59264 100644 --- a/WebKit/WKGroupActivitiesCoordinatorDelegate.ml +++ b/WebKit/WKGroupActivitiesCoordinatorDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkgroupactivitiescoordinatordelegate?language=objc}WKGroupActivitiesCoordinatorDelegate} *) +let self = get_class "WKGroupActivitiesCoordinatorDelegate" + let initWithParent x self = msg_send ~self ~cmd:(selector "initWithParent:") ~typ:((ptr void) @-> returning id) x let playbackCoordinator x ~didIssuePrepareTransitionCommand self = msg_send ~self ~cmd:(selector "playbackCoordinator:didIssuePrepareTransitionCommand:") ~typ:(id @-> id @-> returning void) x didIssuePrepareTransitionCommand let playbackCoordinator1 x ~didIssueBufferingCommand ~completionHandler self = msg_send ~self ~cmd:(selector "playbackCoordinator:didIssueBufferingCommand:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x didIssueBufferingCommand completionHandler diff --git a/WebKit/WKGroupActivitiesCoordinatorDelegateClass.ml b/WebKit/WKGroupActivitiesCoordinatorDelegateClass.ml deleted file mode 100644 index 2444c69c..00000000 --- a/WebKit/WKGroupActivitiesCoordinatorDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkgroupactivitiescoordinatordelegate?language=objc}WKGroupActivitiesCoordinatorDelegate} *) - -let self = get_class "WKGroupActivitiesCoordinatorDelegate" - diff --git a/WebKit/WKHTTPCookieStore.ml b/WebKit/WKHTTPCookieStore.ml index d50673f8..9d1ab4d9 100644 --- a/WebKit/WKHTTPCookieStore.ml +++ b/WebKit/WKHTTPCookieStore.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkhttpcookiestore?language=objc}WKHTTPCookieStore} *) +let self = get_class "WKHTTPCookieStore" + let addObserver x self = msg_send ~self ~cmd:(selector "addObserver:") ~typ:(id @-> returning void) x let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let deleteCookie x ~completionHandler self = msg_send ~self ~cmd:(selector "deleteCookie:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler diff --git a/WebKit/WKHTTPCookieStoreClass.ml b/WebKit/WKHTTPCookieStoreClass.ml deleted file mode 100644 index e5f4a321..00000000 --- a/WebKit/WKHTTPCookieStoreClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkhttpcookiestore?language=objc}WKHTTPCookieStore} *) - -let self = get_class "WKHTTPCookieStore" - diff --git a/WebKit/WKImmediateActionController.ml b/WebKit/WKImmediateActionController.ml index 68f32a6d..1881ee25 100644 --- a/WebKit/WKImmediateActionController.ml +++ b/WebKit/WKImmediateActionController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkimmediateactioncontroller?language=objc}WKImmediateActionController} *) +let self = get_class "WKImmediateActionController" + let didPerformImmediateActionHitTest x ~contentPreventsDefault ~userData self = msg_send ~self ~cmd:(selector "didPerformImmediateActionHitTest:contentPreventsDefault:userData:") ~typ:((ptr void) @-> bool @-> (ptr void) @-> returning void) x contentPreventsDefault userData let dismissContentRelativeChildWindows self = msg_send ~self ~cmd:(selector "dismissContentRelativeChildWindows") ~typ:(returning void) let hasActiveImmediateAction self = msg_send ~self ~cmd:(selector "hasActiveImmediateAction") ~typ:(returning bool) diff --git a/WebKit/WKImmediateActionControllerClass.ml b/WebKit/WKImmediateActionControllerClass.ml deleted file mode 100644 index cdfa44b2..00000000 --- a/WebKit/WKImmediateActionControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkimmediateactioncontroller?language=objc}WKImmediateActionController} *) - -let self = get_class "WKImmediateActionController" - diff --git a/WebKit/WKInspectorResourceURLSchemeHandler.ml b/WebKit/WKInspectorResourceURLSchemeHandler.ml index 09330b03..a5b8e164 100644 --- a/WebKit/WKInspectorResourceURLSchemeHandler.ml +++ b/WebKit/WKInspectorResourceURLSchemeHandler.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkinspectorresourceurlschemehandler?language=objc}WKInspectorResourceURLSchemeHandler} *) +let self = get_class "WKInspectorResourceURLSchemeHandler" + let allowedURLSchemesForCSP self = msg_send ~self ~cmd:(selector "allowedURLSchemesForCSP") ~typ:(returning id) let mainResourceURLsForCSP self = msg_send ~self ~cmd:(selector "mainResourceURLsForCSP") ~typ:(returning id) let setAllowedURLSchemesForCSP x self = msg_send ~self ~cmd:(selector "setAllowedURLSchemesForCSP:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKInspectorResourceURLSchemeHandlerClass.ml b/WebKit/WKInspectorResourceURLSchemeHandlerClass.ml deleted file mode 100644 index 39cb521a..00000000 --- a/WebKit/WKInspectorResourceURLSchemeHandlerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkinspectorresourceurlschemehandler?language=objc}WKInspectorResourceURLSchemeHandler} *) - -let self = get_class "WKInspectorResourceURLSchemeHandler" - diff --git a/WebKit/WKInspectorViewController.ml b/WebKit/WKInspectorViewController.ml index 7fee2da2..765af340 100644 --- a/WebKit/WKInspectorViewController.ml +++ b/WebKit/WKInspectorViewController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkinspectorviewcontroller?language=objc}WKInspectorViewController} *) +let self = get_class "WKInspectorViewController" + 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 initWithConfiguration x ~inspectedPage self = msg_send ~self ~cmd:(selector "initWithConfiguration:inspectedPage:") ~typ:(id @-> id @-> returning id) x inspectedPage diff --git a/WebKit/WKInspectorViewControllerClass.ml b/WebKit/WKInspectorViewControllerClass.ml index 364a2f45..55f21f38 100644 --- a/WebKit/WKInspectorViewControllerClass.ml +++ b/WebKit/WKInspectorViewControllerClass.ml @@ -4,12 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkinspectorviewcontroller?language=objc}WKInspectorViewController} *) -let self = get_class "WKInspectorViewController" - let _URLForInspectorResource x self = msg_send ~self ~cmd:(selector "URLForInspectorResource:") ~typ:(id @-> returning id) x let viewIsInspectorWebView x self = msg_send ~self ~cmd:(selector "viewIsInspectorWebView:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/WebKit/WKInspectorWKWebView.ml b/WebKit/WKInspectorWKWebView.ml index 2962b220..dcb08eea 100644 --- a/WebKit/WKInspectorWKWebView.ml +++ b/WebKit/WKInspectorWKWebView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkinspectorwkwebview?language=objc}WKInspectorWKWebView} *) +let self = get_class "WKInspectorWKWebView" + 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 inspectorWKWebViewDelegate self = msg_send ~self ~cmd:(selector "inspectorWKWebViewDelegate") ~typ:(returning id) diff --git a/WebKit/WKInspectorWKWebViewClass.ml b/WebKit/WKInspectorWKWebViewClass.ml deleted file mode 100644 index 4cc7ddf2..00000000 --- a/WebKit/WKInspectorWKWebViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkinspectorwkwebview?language=objc}WKInspectorWKWebView} *) - -let self = get_class "WKInspectorWKWebView" - diff --git a/WebKit/WKLayerHostView.ml b/WebKit/WKLayerHostView.ml index 667a817f..bb4c0a12 100644 --- a/WebKit/WKLayerHostView.ml +++ b/WebKit/WKLayerHostView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wklayerhostview?language=objc}WKLayerHostView} *) +let self = get_class "WKLayerHostView" + let contextID self = msg_send ~self ~cmd:(selector "contextID") ~typ:(returning uint) let layerHost self = msg_send ~self ~cmd:(selector "layerHost") ~typ:(returning id) let makeBackingLayer self = msg_send ~self ~cmd:(selector "makeBackingLayer") ~typ:(returning id) diff --git a/WebKit/WKLayerHostViewClass.ml b/WebKit/WKLayerHostViewClass.ml deleted file mode 100644 index 77b0ae9a..00000000 --- a/WebKit/WKLayerHostViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wklayerhostview?language=objc}WKLayerHostView} *) - -let self = get_class "WKLayerHostView" - diff --git a/WebKit/WKMediaSessionCoordinatorHelper.ml b/WebKit/WKMediaSessionCoordinatorHelper.ml index d4df160a..e6e7821c 100644 --- a/WebKit/WKMediaSessionCoordinatorHelper.ml +++ b/WebKit/WKMediaSessionCoordinatorHelper.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmediasessioncoordinatorhelper?language=objc}WKMediaSessionCoordinatorHelper} *) +let self = get_class "WKMediaSessionCoordinatorHelper" + let coordinatorStateChanged x self = msg_send ~self ~cmd:(selector "coordinatorStateChanged:") ~typ:(llong @-> returning void) (LLong.of_int x) let initWithCoordinator x self = msg_send ~self ~cmd:(selector "initWithCoordinator:") ~typ:((ptr void) @-> returning id) x let pauseSessionWithCompletion x self = msg_send ~self ~cmd:(selector "pauseSessionWithCompletion:") ~typ:((ptr void) @-> returning void) x diff --git a/WebKit/WKMediaSessionCoordinatorHelperClass.ml b/WebKit/WKMediaSessionCoordinatorHelperClass.ml deleted file mode 100644 index 10abae77..00000000 --- a/WebKit/WKMediaSessionCoordinatorHelperClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmediasessioncoordinatorhelper?language=objc}WKMediaSessionCoordinatorHelper} *) - -let self = get_class "WKMediaSessionCoordinatorHelper" - diff --git a/WebKit/WKMenuDelegate.ml b/WebKit/WKMenuDelegate.ml index ce89c26e..ea901c14 100644 --- a/WebKit/WKMenuDelegate.ml +++ b/WebKit/WKMenuDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmenudelegate?language=objc}WKMenuDelegate} *) +let self = get_class "WKMenuDelegate" + let initWithMenuProxy x self = msg_send ~self ~cmd:(selector "initWithMenuProxy:") ~typ:((ptr void) @-> returning id) x let menuDidClose x self = msg_send ~self ~cmd:(selector "menuDidClose:") ~typ:(id @-> returning void) x let menuWillOpen x self = msg_send ~self ~cmd:(selector "menuWillOpen:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKMenuDelegateClass.ml b/WebKit/WKMenuDelegateClass.ml deleted file mode 100644 index 08d9a27e..00000000 --- a/WebKit/WKMenuDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmenudelegate?language=objc}WKMenuDelegate} *) - -let self = get_class "WKMenuDelegate" - diff --git a/WebKit/WKMenuTarget.ml b/WebKit/WKMenuTarget.ml index a2ebda64..8810daae 100644 --- a/WebKit/WKMenuTarget.ml +++ b/WebKit/WKMenuTarget.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmenutarget?language=objc}WKMenuTarget} *) +let self = get_class "WKMenuTarget" + let forwardContextMenuAction x self = msg_send ~self ~cmd:(selector "forwardContextMenuAction:") ~typ:(id @-> returning void) x let menuProxy self = msg_send ~self ~cmd:(selector "menuProxy") ~typ:(returning (ptr void)) let setMenuProxy x self = msg_send ~self ~cmd:(selector "setMenuProxy:") ~typ:((ptr void) @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKMenuTargetClass.ml b/WebKit/WKMenuTargetClass.ml index d77ea178..a67a07d0 100644 --- a/WebKit/WKMenuTargetClass.ml +++ b/WebKit/WKMenuTargetClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmenutarget?language=objc}WKMenuTarget} *) -let self = get_class "WKMenuTarget" - let sharedMenuTarget self = msg_send ~self ~cmd:(selector "sharedMenuTarget") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKMockNFTag.ml b/WebKit/WKMockNFTag.ml index 39d0fe59..fdeff70a 100644 --- a/WebKit/WKMockNFTag.ml +++ b/WebKit/WKMockNFTag.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmocknftag?language=objc}WKMockNFTag} *) +let self = get_class "WKMockNFTag" + let _AppData self = msg_send ~self ~cmd:(selector "AppData") ~typ:(returning id) let _UID self = msg_send ~self ~cmd:(selector "UID") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/WebKit/WKMockNFTagClass.ml b/WebKit/WKMockNFTagClass.ml deleted file mode 100644 index 6d1fd567..00000000 --- a/WebKit/WKMockNFTagClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmocknftag?language=objc}WKMockNFTag} *) - -let self = get_class "WKMockNFTag" - diff --git a/WebKit/WKModalContainerClassifierBatch.ml b/WebKit/WKModalContainerClassifierBatch.ml index 69803db8..8256d65c 100644 --- a/WebKit/WKModalContainerClassifierBatch.ml +++ b/WebKit/WKModalContainerClassifierBatch.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmodalcontainerclassifierbatch?language=objc}WKModalContainerClassifierBatch} *) +let self = get_class "WKModalContainerClassifierBatch" + let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning llong) let featuresAtIndex x self = msg_send ~self ~cmd:(selector "featuresAtIndex:") ~typ:(llong @-> returning id) (LLong.of_int x) let initWithRawInputs x self = msg_send ~self ~cmd:(selector "initWithRawInputs:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKModalContainerClassifierBatchClass.ml b/WebKit/WKModalContainerClassifierBatchClass.ml deleted file mode 100644 index 9dce7ee0..00000000 --- a/WebKit/WKModalContainerClassifierBatchClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmodalcontainerclassifierbatch?language=objc}WKModalContainerClassifierBatch} *) - -let self = get_class "WKModalContainerClassifierBatch" - diff --git a/WebKit/WKModalContainerClassifierInput.ml b/WebKit/WKModalContainerClassifierInput.ml index c1d213e5..e6348a55 100644 --- a/WebKit/WKModalContainerClassifierInput.ml +++ b/WebKit/WKModalContainerClassifierInput.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmodalcontainerclassifierinput?language=objc}WKModalContainerClassifierInput} *) +let self = get_class "WKModalContainerClassifierInput" + let featureNames self = msg_send ~self ~cmd:(selector "featureNames") ~typ:(returning id) let featureValueForName x self = msg_send ~self ~cmd:(selector "featureValueForName:") ~typ:(id @-> returning id) x let initWithTokenizer x ~rawInput self = msg_send ~self ~cmd:(selector "initWithTokenizer:rawInput:") ~typ:(id @-> id @-> returning id) x rawInput \ No newline at end of file diff --git a/WebKit/WKModalContainerClassifierInputClass.ml b/WebKit/WKModalContainerClassifierInputClass.ml deleted file mode 100644 index 01f36b62..00000000 --- a/WebKit/WKModalContainerClassifierInputClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkmodalcontainerclassifierinput?language=objc}WKModalContainerClassifierInput} *) - -let self = get_class "WKModalContainerClassifierInput" - diff --git a/WebKit/WKNFReaderSessionDelegate.ml b/WebKit/WKNFReaderSessionDelegate.ml index a72e5640..b832eb53 100644 --- a/WebKit/WKNFReaderSessionDelegate.ml +++ b/WebKit/WKNFReaderSessionDelegate.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknfreadersessiondelegate?language=objc}WKNFReaderSessionDelegate} *) +let self = get_class "WKNFReaderSessionDelegate" + let initWithConnection x self = msg_send ~self ~cmd:(selector "initWithConnection:") ~typ:((ptr void) @-> returning id) x let readerSession x ~didDetectTags self = msg_send ~self ~cmd:(selector "readerSession:didDetectTags:") ~typ:(id @-> id @-> returning void) x didDetectTags \ No newline at end of file diff --git a/WebKit/WKNFReaderSessionDelegateClass.ml b/WebKit/WKNFReaderSessionDelegateClass.ml deleted file mode 100644 index bc52f56a..00000000 --- a/WebKit/WKNFReaderSessionDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknfreadersessiondelegate?language=objc}WKNFReaderSessionDelegate} *) - -let self = get_class "WKNFReaderSessionDelegate" - diff --git a/WebKit/WKNSArray.ml b/WebKit/WKNSArray.ml index 5f7ea307..6049a90d 100644 --- a/WebKit/WKNSArray.ml +++ b/WebKit/WKNSArray.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsarray?language=objc}WKNSArray} *) +let self = get_class "WKNSArray" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning ullong) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/WebKit/WKNSArrayClass.ml b/WebKit/WKNSArrayClass.ml deleted file mode 100644 index 32f00876..00000000 --- a/WebKit/WKNSArrayClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsarray?language=objc}WKNSArray} *) - -let self = get_class "WKNSArray" - diff --git a/WebKit/WKNSData.ml b/WebKit/WKNSData.ml index ea8683b1..a9924574 100644 --- a/WebKit/WKNSData.ml +++ b/WebKit/WKNSData.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsdata?language=objc}WKNSData} *) +let self = get_class "WKNSData" + let bytes self = msg_send ~self ~cmd:(selector "bytes") ~typ:(returning (ptr void)) 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) diff --git a/WebKit/WKNSDataClass.ml b/WebKit/WKNSDataClass.ml deleted file mode 100644 index 88af2107..00000000 --- a/WebKit/WKNSDataClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsdata?language=objc}WKNSData} *) - -let self = get_class "WKNSData" - diff --git a/WebKit/WKNSDictionary.ml b/WebKit/WKNSDictionary.ml index a2ef9b55..17296044 100644 --- a/WebKit/WKNSDictionary.ml +++ b/WebKit/WKNSDictionary.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsdictionary?language=objc}WKNSDictionary} *) +let self = get_class "WKNSDictionary" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning ullong) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/WebKit/WKNSDictionaryClass.ml b/WebKit/WKNSDictionaryClass.ml deleted file mode 100644 index e10f4192..00000000 --- a/WebKit/WKNSDictionaryClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsdictionary?language=objc}WKNSDictionary} *) - -let self = get_class "WKNSDictionary" - diff --git a/WebKit/WKNSNumber.ml b/WebKit/WKNSNumber.ml index 7b7d2493..18d140de 100644 --- a/WebKit/WKNSNumber.ml +++ b/WebKit/WKNSNumber.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsnumber?language=objc}WKNSNumber} *) +let self = get_class "WKNSNumber" + let charValue self = msg_send ~self ~cmd:(selector "charValue") ~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) diff --git a/WebKit/WKNSNumberClass.ml b/WebKit/WKNSNumberClass.ml deleted file mode 100644 index 1c0f9b13..00000000 --- a/WebKit/WKNSNumberClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsnumber?language=objc}WKNSNumber} *) - -let self = get_class "WKNSNumber" - diff --git a/WebKit/WKNSString.ml b/WebKit/WKNSString.ml index 5ee4722c..0ff4681e 100644 --- a/WebKit/WKNSString.ml +++ b/WebKit/WKNSString.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsstring?language=objc}WKNSString} *) +let self = get_class "WKNSString" + let class_ self = msg_send ~self ~cmd:(selector "class") ~typ:(returning _Class) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let superclass self = msg_send ~self ~cmd:(selector "superclass") ~typ:(returning _Class) \ No newline at end of file diff --git a/WebKit/WKNSStringClass.ml b/WebKit/WKNSStringClass.ml deleted file mode 100644 index 44db19aa..00000000 --- a/WebKit/WKNSStringClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsstring?language=objc}WKNSString} *) - -let self = get_class "WKNSString" - diff --git a/WebKit/WKNSURLAuthenticationChallengeSender.ml b/WebKit/WKNSURLAuthenticationChallengeSender.ml index d05a4a05..a313f283 100644 --- a/WebKit/WKNSURLAuthenticationChallengeSender.ml +++ b/WebKit/WKNSURLAuthenticationChallengeSender.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsurlauthenticationchallengesender?language=objc}WKNSURLAuthenticationChallengeSender} *) +let self = get_class "WKNSURLAuthenticationChallengeSender" + let cancelAuthenticationChallenge x self = msg_send ~self ~cmd:(selector "cancelAuthenticationChallenge:") ~typ:(id @-> returning void) x let continueWithoutCredentialForAuthenticationChallenge x self = msg_send ~self ~cmd:(selector "continueWithoutCredentialForAuthenticationChallenge:") ~typ:(id @-> returning void) x let performDefaultHandlingForAuthenticationChallenge x self = msg_send ~self ~cmd:(selector "performDefaultHandlingForAuthenticationChallenge:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKNSURLAuthenticationChallengeSenderClass.ml b/WebKit/WKNSURLAuthenticationChallengeSenderClass.ml deleted file mode 100644 index f989541e..00000000 --- a/WebKit/WKNSURLAuthenticationChallengeSenderClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsurlauthenticationchallengesender?language=objc}WKNSURLAuthenticationChallengeSender} *) - -let self = get_class "WKNSURLAuthenticationChallengeSender" - diff --git a/WebKit/WKNSURLRequest.ml b/WebKit/WKNSURLRequest.ml index b2406bbe..3a8884af 100644 --- a/WebKit/WKNSURLRequest.ml +++ b/WebKit/WKNSURLRequest.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsurlrequest?language=objc}WKNSURLRequest} *) +let self = get_class "WKNSURLRequest" + let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) 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/WebKit/WKNSURLRequestClass.ml b/WebKit/WKNSURLRequestClass.ml deleted file mode 100644 index 47145e2d..00000000 --- a/WebKit/WKNSURLRequestClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknsurlrequest?language=objc}WKNSURLRequest} *) - -let self = get_class "WKNSURLRequest" - diff --git a/WebKit/WKNavigation.ml b/WebKit/WKNavigation.ml index 5969e9f3..d3cc6627 100644 --- a/WebKit/WKNavigation.ml +++ b/WebKit/WKNavigation.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigation?language=objc}WKNavigation} *) +let self = get_class "WKNavigation" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let effectiveContentMode self = msg_send ~self ~cmd:(selector "effectiveContentMode") ~typ:(returning llong) \ No newline at end of file diff --git a/WebKit/WKNavigationAction.ml b/WebKit/WKNavigationAction.ml index 9a7075b6..6384ab1f 100644 --- a/WebKit/WKNavigationAction.ml +++ b/WebKit/WKNavigationAction.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigationaction?language=objc}WKNavigationAction} *) +let self = get_class "WKNavigationAction" + let buttonNumber self = msg_send ~self ~cmd:(selector "buttonNumber") ~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) diff --git a/WebKit/WKNavigationActionClass.ml b/WebKit/WKNavigationActionClass.ml deleted file mode 100644 index bb8a1f00..00000000 --- a/WebKit/WKNavigationActionClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigationaction?language=objc}WKNavigationAction} *) - -let self = get_class "WKNavigationAction" - diff --git a/WebKit/WKNavigationClass.ml b/WebKit/WKNavigationClass.ml deleted file mode 100644 index d0781919..00000000 --- a/WebKit/WKNavigationClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigation?language=objc}WKNavigation} *) - -let self = get_class "WKNavigation" - diff --git a/WebKit/WKNavigationData.ml b/WebKit/WKNavigationData.ml index 77415c09..9f90dfeb 100644 --- a/WebKit/WKNavigationData.ml +++ b/WebKit/WKNavigationData.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigationdata?language=objc}WKNavigationData} *) +let self = get_class "WKNavigationData" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let destinationURL self = msg_send ~self ~cmd:(selector "destinationURL") ~typ:(returning id) let originalRequest self = msg_send ~self ~cmd:(selector "originalRequest") ~typ:(returning id) diff --git a/WebKit/WKNavigationDataClass.ml b/WebKit/WKNavigationDataClass.ml deleted file mode 100644 index 9164006c..00000000 --- a/WebKit/WKNavigationDataClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigationdata?language=objc}WKNavigationData} *) - -let self = get_class "WKNavigationData" - diff --git a/WebKit/WKNavigationResponse.ml b/WebKit/WKNavigationResponse.ml index 69c505bd..820e69bf 100644 --- a/WebKit/WKNavigationResponse.ml +++ b/WebKit/WKNavigationResponse.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigationresponse?language=objc}WKNavigationResponse} *) +let self = get_class "WKNavigationResponse" + let canShowMIMEType self = msg_send ~self ~cmd:(selector "canShowMIMEType") ~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) diff --git a/WebKit/WKNavigationResponseClass.ml b/WebKit/WKNavigationResponseClass.ml deleted file mode 100644 index a472b7f9..00000000 --- a/WebKit/WKNavigationResponseClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknavigationresponse?language=objc}WKNavigationResponse} *) - -let self = get_class "WKNavigationResponse" - diff --git a/WebKit/WKNetworkSessionDelegate.ml b/WebKit/WKNetworkSessionDelegate.ml index 00322542..7eee58d0 100644 --- a/WebKit/WKNetworkSessionDelegate.ml +++ b/WebKit/WKNetworkSessionDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknetworksessiondelegate?language=objc}WKNetworkSessionDelegate} *) +let self = get_class "WKNetworkSessionDelegate" + let _URLSession x ~didBecomeInvalidWithError self = msg_send ~self ~cmd:(selector "URLSession:didBecomeInvalidWithError:") ~typ:(id @-> id @-> returning void) x didBecomeInvalidWithError let _URLSession1 x ~dataTask ~didBecomeDownloadTask self = msg_send ~self ~cmd:(selector "URLSession:dataTask:didBecomeDownloadTask:") ~typ:(id @-> id @-> id @-> returning void) x dataTask didBecomeDownloadTask let _URLSession2 x ~dataTask ~didReceiveData self = msg_send ~self ~cmd:(selector "URLSession:dataTask:didReceiveData:") ~typ:(id @-> id @-> id @-> returning void) x dataTask didReceiveData diff --git a/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON.ml b/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON.ml index b4d34fed..63ad8899 100644 --- a/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON.ml +++ b/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknetworksessiondelegateallowingonlynonredirectedjson?language=objc}WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON} *) +let self = get_class "WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON" + let _URLSession x ~dataTask ~didReceiveResponse ~completionHandler self = msg_send ~self ~cmd:(selector "URLSession:dataTask:didReceiveResponse:completionHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x dataTask didReceiveResponse completionHandler let _URLSession1 x ~task ~didReceiveChallenge ~completionHandler self = msg_send ~self ~cmd:(selector "URLSession:task:didReceiveChallenge:completionHandler:") ~typ:(id @-> id @-> id @-> (ptr void) @-> returning void) x task didReceiveChallenge completionHandler let _URLSession2 x ~task ~willPerformHTTPRedirection ~newRequest ~completionHandler self = msg_send ~self ~cmd:(selector "URLSession:task:willPerformHTTPRedirection:newRequest:completionHandler:") ~typ:(id @-> id @-> id @-> id @-> (ptr void) @-> returning void) x task willPerformHTTPRedirection newRequest completionHandler \ No newline at end of file diff --git a/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSONClass.ml b/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSONClass.ml deleted file mode 100644 index f37088f8..00000000 --- a/WebKit/WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSONClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknetworksessiondelegateallowingonlynonredirectedjson?language=objc}WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON} *) - -let self = get_class "WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON" - diff --git a/WebKit/WKNetworkSessionDelegateClass.ml b/WebKit/WKNetworkSessionDelegateClass.ml deleted file mode 100644 index 14aaa516..00000000 --- a/WebKit/WKNetworkSessionDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wknetworksessiondelegate?language=objc}WKNetworkSessionDelegate} *) - -let self = get_class "WKNetworkSessionDelegate" - diff --git a/WebKit/WKObject.ml b/WebKit/WKObject.ml index 0fd8cd86..db7a31e8 100644 --- a/WebKit/WKObject.ml +++ b/WebKit/WKObject.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkobject?language=objc}WKObject} *) +let self = get_class "WKObject" + let classForCoder self = msg_send ~self ~cmd:(selector "classForCoder") ~typ:(returning _Class) let classForKeyedArchiver self = msg_send ~self ~cmd:(selector "classForKeyedArchiver") ~typ:(returning _Class) let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning bool) x diff --git a/WebKit/WKObjectClass.ml b/WebKit/WKObjectClass.ml deleted file mode 100644 index edda5b64..00000000 --- a/WebKit/WKObjectClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkobject?language=objc}WKObject} *) - -let self = get_class "WKObject" - diff --git a/WebKit/WKObservablePageState.ml b/WebKit/WKObservablePageState.ml index 89e77d86..b3d51a6d 100644 --- a/WebKit/WKObservablePageState.ml +++ b/WebKit/WKObservablePageState.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkobservablepagestate?language=objc}WKObservablePageState} *) +let self = get_class "WKObservablePageState" + 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 estimatedProgress self = msg_send ~self ~cmd:(selector "estimatedProgress") ~typ:(returning double) diff --git a/WebKit/WKObservablePageStateClass.ml b/WebKit/WKObservablePageStateClass.ml deleted file mode 100644 index 21e2986a..00000000 --- a/WebKit/WKObservablePageStateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkobservablepagestate?language=objc}WKObservablePageState} *) - -let self = get_class "WKObservablePageState" - diff --git a/WebKit/WKOpenPanelParameters.ml b/WebKit/WKOpenPanelParameters.ml index 6be24835..f3db40bd 100644 --- a/WebKit/WKOpenPanelParameters.ml +++ b/WebKit/WKOpenPanelParameters.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkopenpanelparameters?language=objc}WKOpenPanelParameters} *) +let self = get_class "WKOpenPanelParameters" + let allowsDirectories self = msg_send ~self ~cmd:(selector "allowsDirectories") ~typ:(returning bool) let allowsMultipleSelection self = msg_send ~self ~cmd:(selector "allowsMultipleSelection") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKOpenPanelParametersClass.ml b/WebKit/WKOpenPanelParametersClass.ml deleted file mode 100644 index 61df60f2..00000000 --- a/WebKit/WKOpenPanelParametersClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkopenpanelparameters?language=objc}WKOpenPanelParameters} *) - -let self = get_class "WKOpenPanelParameters" - diff --git a/WebKit/WKPDFConfiguration.ml b/WebKit/WKPDFConfiguration.ml index 6e8d0383..64491e7d 100644 --- a/WebKit/WKPDFConfiguration.ml +++ b/WebKit/WKPDFConfiguration.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfconfiguration?language=objc}WKPDFConfiguration} *) +let self = get_class "WKPDFConfiguration" + 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 rect self = msg_send ~self ~cmd:(selector "rect") ~typ:(returning CGRect.t) diff --git a/WebKit/WKPDFConfigurationClass.ml b/WebKit/WKPDFConfigurationClass.ml deleted file mode 100644 index 472be032..00000000 --- a/WebKit/WKPDFConfigurationClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfconfiguration?language=objc}WKPDFConfiguration} *) - -let self = get_class "WKPDFConfiguration" - diff --git a/WebKit/WKPDFHUDView.ml b/WebKit/WKPDFHUDView.ml index 9d72c3a2..965d943c 100644 --- a/WebKit/WKPDFHUDView.ml +++ b/WebKit/WKPDFHUDView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfhudview?language=objc}WKPDFHUDView} *) +let self = get_class "WKPDFHUDView" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let hitTest x self = msg_send ~self ~cmd:(selector "hitTest:") ~typ:(CGPoint.t @-> returning id) x let initWithFrame x ~pluginIdentifier ~page self = msg_send ~self ~cmd:(selector "initWithFrame:pluginIdentifier:page:") ~typ:(CGRect.t @-> id @-> (ptr void) @-> returning id) x pluginIdentifier page diff --git a/WebKit/WKPDFHUDViewClass.ml b/WebKit/WKPDFHUDViewClass.ml deleted file mode 100644 index c04d4f8e..00000000 --- a/WebKit/WKPDFHUDViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfhudview?language=objc}WKPDFHUDView} *) - -let self = get_class "WKPDFHUDView" - diff --git a/WebKit/WKPDFLayerControllerDelegate.ml b/WebKit/WKPDFLayerControllerDelegate.ml index 6380a121..e7d93e55 100644 --- a/WebKit/WKPDFLayerControllerDelegate.ml +++ b/WebKit/WKPDFLayerControllerDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdflayercontrollerdelegate?language=objc}WKPDFLayerControllerDelegate} *) +let self = get_class "WKPDFLayerControllerDelegate" + let didChangeAnnotationState self = msg_send ~self ~cmd:(selector "didChangeAnnotationState") ~typ:(returning void) let initWithPDFPlugin x self = msg_send ~self ~cmd:(selector "initWithPDFPlugin:") ~typ:((ptr void) @-> returning id) x let openWithNativeApplication self = msg_send ~self ~cmd:(selector "openWithNativeApplication") ~typ:(returning void) diff --git a/WebKit/WKPDFLayerControllerDelegateClass.ml b/WebKit/WKPDFLayerControllerDelegateClass.ml deleted file mode 100644 index 6d2eaba4..00000000 --- a/WebKit/WKPDFLayerControllerDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdflayercontrollerdelegate?language=objc}WKPDFLayerControllerDelegate} *) - -let self = get_class "WKPDFLayerControllerDelegate" - diff --git a/WebKit/WKPDFMenuTarget.ml b/WebKit/WKPDFMenuTarget.ml index 05757fe2..b3a8e1bb 100644 --- a/WebKit/WKPDFMenuTarget.ml +++ b/WebKit/WKPDFMenuTarget.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfmenutarget?language=objc}WKPDFMenuTarget} *) +let self = get_class "WKPDFMenuTarget" + let contextMenuAction x self = msg_send ~self ~cmd:(selector "contextMenuAction:") ~typ:(id @-> returning void) x let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let selectedMenuItem self = msg_send ~self ~cmd:(selector "selectedMenuItem") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKPDFMenuTargetClass.ml b/WebKit/WKPDFMenuTargetClass.ml deleted file mode 100644 index 0a2d18f6..00000000 --- a/WebKit/WKPDFMenuTargetClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfmenutarget?language=objc}WKPDFMenuTarget} *) - -let self = get_class "WKPDFMenuTarget" - diff --git a/WebKit/WKPDFPluginAccessibilityObject.ml b/WebKit/WKPDFPluginAccessibilityObject.ml index 59d5a2ed..113d57ef 100644 --- a/WebKit/WKPDFPluginAccessibilityObject.ml +++ b/WebKit/WKPDFPluginAccessibilityObject.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfpluginaccessibilityobject?language=objc}WKPDFPluginAccessibilityObject} *) +let self = get_class "WKPDFPluginAccessibilityObject" + let accessibilityActionNames self = msg_send ~self ~cmd:(selector "accessibilityActionNames") ~typ:(returning id) let accessibilityAssociatedControlForAnnotation x self = msg_send ~self ~cmd:(selector "accessibilityAssociatedControlForAnnotation:") ~typ:(id @-> returning id) x let accessibilityAttributeNames self = msg_send ~self ~cmd:(selector "accessibilityAttributeNames") ~typ:(returning id) diff --git a/WebKit/WKPDFPluginAccessibilityObjectClass.ml b/WebKit/WKPDFPluginAccessibilityObjectClass.ml deleted file mode 100644 index e3be908c..00000000 --- a/WebKit/WKPDFPluginAccessibilityObjectClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfpluginaccessibilityobject?language=objc}WKPDFPluginAccessibilityObject} *) - -let self = get_class "WKPDFPluginAccessibilityObject" - diff --git a/WebKit/WKPDFPluginScrollbarLayer.ml b/WebKit/WKPDFPluginScrollbarLayer.ml index 1059ffa0..1e5bd284 100644 --- a/WebKit/WKPDFPluginScrollbarLayer.ml +++ b/WebKit/WKPDFPluginScrollbarLayer.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfpluginscrollbarlayer?language=objc}WKPDFPluginScrollbarLayer} *) +let self = get_class "WKPDFPluginScrollbarLayer" + let actionForKey x self = msg_send ~self ~cmd:(selector "actionForKey:") ~typ:(id @-> returning id) x let drawInContext x self = msg_send ~self ~cmd:(selector "drawInContext:") ~typ:((ptr CGContext.t) @-> returning void) x let initWithPDFPlugin x self = msg_send ~self ~cmd:(selector "initWithPDFPlugin:") ~typ:((ptr void) @-> returning id) x diff --git a/WebKit/WKPDFPluginScrollbarLayerClass.ml b/WebKit/WKPDFPluginScrollbarLayerClass.ml deleted file mode 100644 index d5426ea2..00000000 --- a/WebKit/WKPDFPluginScrollbarLayerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpdfpluginscrollbarlayer?language=objc}WKPDFPluginScrollbarLayer} *) - -let self = get_class "WKPDFPluginScrollbarLayer" - diff --git a/WebKit/WKPaymentAuthorizationDelegate.ml b/WebKit/WKPaymentAuthorizationDelegate.ml index 31b76e8d..104e5a38 100644 --- a/WebKit/WKPaymentAuthorizationDelegate.ml +++ b/WebKit/WKPaymentAuthorizationDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpaymentauthorizationdelegate?language=objc}WKPaymentAuthorizationDelegate} *) +let self = get_class "WKPaymentAuthorizationDelegate" + let completeCouponCodeChange x self = msg_send ~self ~cmd:(selector "completeCouponCodeChange:") ~typ:(id @-> returning void) x let completeMerchantValidation x ~error self = msg_send ~self ~cmd:(selector "completeMerchantValidation:error:") ~typ:(id @-> id @-> returning void) x error let completePaymentMethodSelection x self = msg_send ~self ~cmd:(selector "completePaymentMethodSelection:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKPaymentAuthorizationDelegateClass.ml b/WebKit/WKPaymentAuthorizationDelegateClass.ml deleted file mode 100644 index 5de6d2be..00000000 --- a/WebKit/WKPaymentAuthorizationDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpaymentauthorizationdelegate?language=objc}WKPaymentAuthorizationDelegate} *) - -let self = get_class "WKPaymentAuthorizationDelegate" - diff --git a/WebKit/WKPaymentAuthorizationViewControllerDelegate.ml b/WebKit/WKPaymentAuthorizationViewControllerDelegate.ml index 05a9955e..f203be72 100644 --- a/WebKit/WKPaymentAuthorizationViewControllerDelegate.ml +++ b/WebKit/WKPaymentAuthorizationViewControllerDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpaymentauthorizationviewcontrollerdelegate?language=objc}WKPaymentAuthorizationViewControllerDelegate} *) +let self = get_class "WKPaymentAuthorizationViewControllerDelegate" + let initWithRequest x ~presenter self = msg_send ~self ~cmd:(selector "initWithRequest:presenter:") ~typ:(id @-> (ptr void) @-> returning id) x presenter let paymentAuthorizationViewController x ~didRequestMerchantSession self = msg_send ~self ~cmd:(selector "paymentAuthorizationViewController:didRequestMerchantSession:") ~typ:(id @-> (ptr void) @-> returning void) x didRequestMerchantSession let paymentAuthorizationViewController1 x ~willFinishWithError self = msg_send ~self ~cmd:(selector "paymentAuthorizationViewController:willFinishWithError:") ~typ:(id @-> id @-> returning void) x willFinishWithError diff --git a/WebKit/WKPaymentAuthorizationViewControllerDelegateClass.ml b/WebKit/WKPaymentAuthorizationViewControllerDelegateClass.ml deleted file mode 100644 index acd6d842..00000000 --- a/WebKit/WKPaymentAuthorizationViewControllerDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpaymentauthorizationviewcontrollerdelegate?language=objc}WKPaymentAuthorizationViewControllerDelegate} *) - -let self = get_class "WKPaymentAuthorizationViewControllerDelegate" - diff --git a/WebKit/WKPopoverColorWell.ml b/WebKit/WKPopoverColorWell.ml index 59ef7eff..b4ff4ad6 100644 --- a/WebKit/WKPopoverColorWell.ml +++ b/WebKit/WKPopoverColorWell.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpopovercolorwell?language=objc}WKPopoverColorWell} *) +let self = get_class "WKPopoverColorWell" + let hitTest x self = msg_send ~self ~cmd:(selector "hitTest:") ~typ:(CGPoint.t @-> returning id) x let popoverDidClose x self = msg_send ~self ~cmd:(selector "popoverDidClose:") ~typ:(id @-> returning void) x let setSuggestedColors x self = msg_send ~self ~cmd:(selector "setSuggestedColors:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKPopoverColorWellClass.ml b/WebKit/WKPopoverColorWellClass.ml deleted file mode 100644 index 9272e2a9..00000000 --- a/WebKit/WKPopoverColorWellClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpopovercolorwell?language=objc}WKPopoverColorWell} *) - -let self = get_class "WKPopoverColorWell" - diff --git a/WebKit/WKPreferenceObserver.ml b/WebKit/WKPreferenceObserver.ml index acc69815..a4dcbf1d 100644 --- a/WebKit/WKPreferenceObserver.ml +++ b/WebKit/WKPreferenceObserver.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpreferenceobserver?language=objc}WKPreferenceObserver} *) +let self = get_class "WKPreferenceObserver" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let preferenceDidChange x ~key ~encodedValue self = msg_send ~self ~cmd:(selector "preferenceDidChange:key:encodedValue:") ~typ:(id @-> id @-> id @-> returning void) x key encodedValue \ No newline at end of file diff --git a/WebKit/WKPreferenceObserverClass.ml b/WebKit/WKPreferenceObserverClass.ml index 22eb29ae..e2b1cfa1 100644 --- a/WebKit/WKPreferenceObserverClass.ml +++ b/WebKit/WKPreferenceObserverClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpreferenceobserver?language=objc}WKPreferenceObserver} *) -let self = get_class "WKPreferenceObserver" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKPreferences.ml b/WebKit/WKPreferences.ml index 4ca75250..c972c9b0 100644 --- a/WebKit/WKPreferences.ml +++ b/WebKit/WKPreferences.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpreferences?language=objc}WKPreferences} *) +let self = get_class "WKPreferences" + 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 encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKPreferencesClass.ml b/WebKit/WKPreferencesClass.ml index 1ccc4e2c..f9c56329 100644 --- a/WebKit/WKPreferencesClass.ml +++ b/WebKit/WKPreferencesClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpreferences?language=objc}WKPreferences} *) -let self = get_class "WKPreferences" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKPrintingView.ml b/WebKit/WKPrintingView.ml index b06363ea..01a45048 100644 --- a/WebKit/WKPrintingView.ml +++ b/WebKit/WKPrintingView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkprintingview?language=objc}WKPrintingView} *) +let self = get_class "WKPrintingView" + let beginDocument self = msg_send ~self ~cmd:(selector "beginDocument") ~typ:(returning void) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let drawPageBorderWithSize x self = msg_send ~self ~cmd:(selector "drawPageBorderWithSize:") ~typ:(CGSize.t @-> returning void) x diff --git a/WebKit/WKPrintingViewClass.ml b/WebKit/WKPrintingViewClass.ml deleted file mode 100644 index 374886b6..00000000 --- a/WebKit/WKPrintingViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkprintingview?language=objc}WKPrintingView} *) - -let self = get_class "WKPrintingView" - diff --git a/WebKit/WKProcessGroup.ml b/WebKit/WKProcessGroup.ml index 2818b086..985ea2eb 100644 --- a/WebKit/WKProcessGroup.ml +++ b/WebKit/WKProcessGroup.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkprocessgroup?language=objc}WKProcessGroup} *) +let self = get_class "WKProcessGroup" + 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 initWithInjectedBundleURL x self = msg_send ~self ~cmd:(selector "initWithInjectedBundleURL:") ~typ:(id @-> returning id) x diff --git a/WebKit/WKProcessGroupClass.ml b/WebKit/WKProcessGroupClass.ml deleted file mode 100644 index f9925c64..00000000 --- a/WebKit/WKProcessGroupClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkprocessgroup?language=objc}WKProcessGroup} *) - -let self = get_class "WKProcessGroup" - diff --git a/WebKit/WKProcessPool.ml b/WebKit/WKProcessPool.ml index 8af02741..f5a01baf 100644 --- a/WebKit/WKProcessPool.ml +++ b/WebKit/WKProcessPool.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkprocesspool?language=objc}WKProcessPool} *) +let self = get_class "WKProcessPool" + 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 diff --git a/WebKit/WKProcessPoolClass.ml b/WebKit/WKProcessPoolClass.ml index db66bc54..4f550201 100644 --- a/WebKit/WKProcessPoolClass.ml +++ b/WebKit/WKProcessPoolClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkprocesspool?language=objc}WKProcessPool} *) -let self = get_class "WKProcessPool" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKPromisedAttachmentContext.ml b/WebKit/WKPromisedAttachmentContext.ml index 465712e1..121e661e 100644 --- a/WebKit/WKPromisedAttachmentContext.ml +++ b/WebKit/WKPromisedAttachmentContext.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpromisedattachmentcontext?language=objc}WKPromisedAttachmentContext} *) +let self = get_class "WKPromisedAttachmentContext" + let attachmentIdentifier self = msg_send ~self ~cmd:(selector "attachmentIdentifier") ~typ:(returning id) let fileName self = msg_send ~self ~cmd:(selector "fileName") ~typ:(returning id) let initWithIdentifier x ~fileName self = msg_send ~self ~cmd:(selector "initWithIdentifier:fileName:") ~typ:(id @-> id @-> returning id) x fileName \ No newline at end of file diff --git a/WebKit/WKPromisedAttachmentContextClass.ml b/WebKit/WKPromisedAttachmentContextClass.ml deleted file mode 100644 index 15b4ce5a..00000000 --- a/WebKit/WKPromisedAttachmentContextClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkpromisedattachmentcontext?language=objc}WKPromisedAttachmentContext} *) - -let self = get_class "WKPromisedAttachmentContext" - diff --git a/WebKit/WKQLThumbnailLoadOperation.ml b/WebKit/WKQLThumbnailLoadOperation.ml index add05950..d2888acf 100644 --- a/WebKit/WKQLThumbnailLoadOperation.ml +++ b/WebKit/WKQLThumbnailLoadOperation.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkqlthumbnailloadoperation?language=objc}WKQLThumbnailLoadOperation} *) +let self = get_class "WKQLThumbnailLoadOperation" + let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) let initWithAttachment x ~identifier self = msg_send ~self ~cmd:(selector "initWithAttachment:identifier:") ~typ:(id @-> id @-> returning id) x identifier let initWithURL x ~identifier self = msg_send ~self ~cmd:(selector "initWithURL:identifier:") ~typ:(id @-> id @-> returning id) x identifier diff --git a/WebKit/WKQLThumbnailLoadOperationClass.ml b/WebKit/WKQLThumbnailLoadOperationClass.ml deleted file mode 100644 index df170a16..00000000 --- a/WebKit/WKQLThumbnailLoadOperationClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkqlthumbnailloadoperation?language=objc}WKQLThumbnailLoadOperation} *) - -let self = get_class "WKQLThumbnailLoadOperation" - diff --git a/WebKit/WKQLThumbnailQueueManager.ml b/WebKit/WKQLThumbnailQueueManager.ml index d28d7eb4..a6b9002a 100644 --- a/WebKit/WKQLThumbnailQueueManager.ml +++ b/WebKit/WKQLThumbnailQueueManager.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkqlthumbnailqueuemanager?language=objc}WKQLThumbnailQueueManager} *) +let self = get_class "WKQLThumbnailQueueManager" + 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 queue self = msg_send ~self ~cmd:(selector "queue") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKQLThumbnailQueueManagerClass.ml b/WebKit/WKQLThumbnailQueueManagerClass.ml index 4e855528..8c24811a 100644 --- a/WebKit/WKQLThumbnailQueueManagerClass.ml +++ b/WebKit/WKQLThumbnailQueueManagerClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkqlthumbnailqueuemanager?language=objc}WKQLThumbnailQueueManager} *) -let self = get_class "WKQLThumbnailQueueManager" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKQuickLookPreviewController.ml b/WebKit/WKQuickLookPreviewController.ml index ce4f1acd..2dbc96b6 100644 --- a/WebKit/WKQuickLookPreviewController.ml +++ b/WebKit/WKQuickLookPreviewController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkquicklookpreviewcontroller?language=objc}WKQuickLookPreviewController} *) +let self = get_class "WKQuickLookPreviewController" + let beginControl x self = msg_send ~self ~cmd:(selector "beginControl:") ~typ:(id @-> returning void) x let closePanelIfNecessary self = msg_send ~self ~cmd:(selector "closePanelIfNecessary") ~typ:(returning void) let endControl x self = msg_send ~self ~cmd:(selector "endControl:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKQuickLookPreviewControllerClass.ml b/WebKit/WKQuickLookPreviewControllerClass.ml deleted file mode 100644 index 06fe1943..00000000 --- a/WebKit/WKQuickLookPreviewControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkquicklookpreviewcontroller?language=objc}WKQuickLookPreviewController} *) - -let self = get_class "WKQuickLookPreviewController" - diff --git a/WebKit/WKReloadFrameErrorRecoveryAttempter.ml b/WebKit/WKReloadFrameErrorRecoveryAttempter.ml index d131398b..c837b681 100644 --- a/WebKit/WKReloadFrameErrorRecoveryAttempter.ml +++ b/WebKit/WKReloadFrameErrorRecoveryAttempter.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkreloadframeerrorrecoveryattempter?language=objc}WKReloadFrameErrorRecoveryAttempter} *) +let self = get_class "WKReloadFrameErrorRecoveryAttempter" + let attemptRecovery self = msg_send ~self ~cmd:(selector "attemptRecovery") ~typ:(returning bool) 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 diff --git a/WebKit/WKReloadFrameErrorRecoveryAttempterClass.ml b/WebKit/WKReloadFrameErrorRecoveryAttempterClass.ml index 542d31bd..5f39b3a0 100644 --- a/WebKit/WKReloadFrameErrorRecoveryAttempterClass.ml +++ b/WebKit/WKReloadFrameErrorRecoveryAttempterClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkreloadframeerrorrecoveryattempter?language=objc}WKReloadFrameErrorRecoveryAttempter} *) -let self = get_class "WKReloadFrameErrorRecoveryAttempter" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKRemoteObject.ml b/WebKit/WKRemoteObject.ml index 54cb34f3..c2b65556 100644 --- a/WebKit/WKRemoteObject.ml +++ b/WebKit/WKRemoteObject.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremoteobject?language=objc}WKRemoteObject} *) +let self = get_class "WKRemoteObject" + let conformsToProtocol x self = msg_send ~self ~cmd:(selector "conformsToProtocol:") ~typ:(id @-> returning bool) x let forwardInvocation x self = msg_send ~self ~cmd:(selector "forwardInvocation:") ~typ:(id @-> returning void) x let methodSignatureForSelector x self = msg_send ~self ~cmd:(selector "methodSignatureForSelector:") ~typ:(_SEL @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKRemoteObjectClass.ml b/WebKit/WKRemoteObjectClass.ml deleted file mode 100644 index fae58efe..00000000 --- a/WebKit/WKRemoteObjectClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremoteobject?language=objc}WKRemoteObject} *) - -let self = get_class "WKRemoteObject" - diff --git a/WebKit/WKRemoteObjectDecoder.ml b/WebKit/WKRemoteObjectDecoder.ml index bad85a90..52699f15 100644 --- a/WebKit/WKRemoteObjectDecoder.ml +++ b/WebKit/WKRemoteObjectDecoder.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremoteobjectdecoder?language=objc}WKRemoteObjectDecoder} *) +let self = get_class "WKRemoteObjectDecoder" + let allowedClasses self = msg_send ~self ~cmd:(selector "allowedClasses") ~typ:(returning id) 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 diff --git a/WebKit/WKRemoteObjectDecoderClass.ml b/WebKit/WKRemoteObjectDecoderClass.ml deleted file mode 100644 index dce00206..00000000 --- a/WebKit/WKRemoteObjectDecoderClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremoteobjectdecoder?language=objc}WKRemoteObjectDecoder} *) - -let self = get_class "WKRemoteObjectDecoder" - diff --git a/WebKit/WKRemoteObjectEncoder.ml b/WebKit/WKRemoteObjectEncoder.ml index 0df02515..a8f41e7c 100644 --- a/WebKit/WKRemoteObjectEncoder.ml +++ b/WebKit/WKRemoteObjectEncoder.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremoteobjectencoder?language=objc}WKRemoteObjectEncoder} *) +let self = get_class "WKRemoteObjectEncoder" + let allowsKeyedCoding self = msg_send ~self ~cmd:(selector "allowsKeyedCoding") ~typ:(returning bool) let encodeBool x ~forKey self = msg_send ~self ~cmd:(selector "encodeBool:forKey:") ~typ:(bool @-> id @-> returning void) x forKey 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 diff --git a/WebKit/WKRemoteObjectEncoderClass.ml b/WebKit/WKRemoteObjectEncoderClass.ml deleted file mode 100644 index bb6686b2..00000000 --- a/WebKit/WKRemoteObjectEncoderClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremoteobjectencoder?language=objc}WKRemoteObjectEncoder} *) - -let self = get_class "WKRemoteObjectEncoder" - diff --git a/WebKit/WKRemoteWebInspectorUIProxyObjCAdapter.ml b/WebKit/WKRemoteWebInspectorUIProxyObjCAdapter.ml index 54679632..5ed7fb64 100644 --- a/WebKit/WKRemoteWebInspectorUIProxyObjCAdapter.ml +++ b/WebKit/WKRemoteWebInspectorUIProxyObjCAdapter.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremotewebinspectoruiproxyobjcadapter?language=objc}WKRemoteWebInspectorUIProxyObjCAdapter} *) +let self = get_class "WKRemoteWebInspectorUIProxyObjCAdapter" + let initWithRemoteWebInspectorUIProxy x self = msg_send ~self ~cmd:(selector "initWithRemoteWebInspectorUIProxy:") ~typ:((ptr void) @-> returning id) x let inspectorViewControllerInspectorDidCrash x self = msg_send ~self ~cmd:(selector "inspectorViewControllerInspectorDidCrash:") ~typ:(id @-> returning void) x let inspectorViewControllerInspectorIsUnderTest x self = msg_send ~self ~cmd:(selector "inspectorViewControllerInspectorIsUnderTest:") ~typ:(id @-> returning bool) x diff --git a/WebKit/WKRemoteWebInspectorUIProxyObjCAdapterClass.ml b/WebKit/WKRemoteWebInspectorUIProxyObjCAdapterClass.ml deleted file mode 100644 index 70794fc5..00000000 --- a/WebKit/WKRemoteWebInspectorUIProxyObjCAdapterClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkremotewebinspectoruiproxyobjcadapter?language=objc}WKRemoteWebInspectorUIProxyObjCAdapter} *) - -let self = get_class "WKRemoteWebInspectorUIProxyObjCAdapter" - diff --git a/WebKit/WKResponderChainSink.ml b/WebKit/WKResponderChainSink.ml index 544d8aa6..3718bda3 100644 --- a/WebKit/WKResponderChainSink.ml +++ b/WebKit/WKResponderChainSink.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkresponderchainsink?language=objc}WKResponderChainSink} *) +let self = get_class "WKResponderChainSink" + let detach self = msg_send ~self ~cmd:(selector "detach") ~typ:(returning void) let didReceiveUnhandledCommand self = msg_send ~self ~cmd:(selector "didReceiveUnhandledCommand") ~typ:(returning bool) let doCommandBySelector x self = msg_send ~self ~cmd:(selector "doCommandBySelector:") ~typ:(_SEL @-> returning void) x diff --git a/WebKit/WKResponderChainSinkClass.ml b/WebKit/WKResponderChainSinkClass.ml deleted file mode 100644 index 7ca0395a..00000000 --- a/WebKit/WKResponderChainSinkClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkresponderchainsink?language=objc}WKResponderChainSink} *) - -let self = get_class "WKResponderChainSink" - diff --git a/WebKit/WKRevealItemPresenter.ml b/WebKit/WKRevealItemPresenter.ml index 02c42f72..a84d8009 100644 --- a/WebKit/WKRevealItemPresenter.ml +++ b/WebKit/WKRevealItemPresenter.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkrevealitempresenter?language=objc}WKRevealItemPresenter} *) +let self = get_class "WKRevealItemPresenter" + let initWithWebViewImpl x ~item ~frame ~menuLocation self = msg_send ~self ~cmd:(selector "initWithWebViewImpl:item:frame:menuLocation:") ~typ:((ptr void) @-> id @-> CGRect.t @-> CGPoint.t @-> returning id) x item frame menuLocation let revealContext x ~rectsForItem self = msg_send ~self ~cmd:(selector "revealContext:rectsForItem:") ~typ:(id @-> id @-> returning id) x rectsForItem let revealContext1 x ~shouldUseDefaultHighlightForItem self = msg_send ~self ~cmd:(selector "revealContext:shouldUseDefaultHighlightForItem:") ~typ:(id @-> id @-> returning bool) x shouldUseDefaultHighlightForItem diff --git a/WebKit/WKRevealItemPresenterClass.ml b/WebKit/WKRevealItemPresenterClass.ml deleted file mode 100644 index ccd8a649..00000000 --- a/WebKit/WKRevealItemPresenterClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkrevealitempresenter?language=objc}WKRevealItemPresenter} *) - -let self = get_class "WKRevealItemPresenter" - diff --git a/WebKit/WKSOAuthorizationDelegate.ml b/WebKit/WKSOAuthorizationDelegate.ml index da452a77..e3588ae4 100644 --- a/WebKit/WKSOAuthorizationDelegate.ml +++ b/WebKit/WKSOAuthorizationDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksoauthorizationdelegate?language=objc}WKSOAuthorizationDelegate} *) +let self = get_class "WKSOAuthorizationDelegate" + let authorization x ~didCompleteWithError self = msg_send ~self ~cmd:(selector "authorization:didCompleteWithError:") ~typ:(id @-> id @-> returning void) x didCompleteWithError let authorization1 x ~didCompleteWithHTTPAuthorizationHeaders self = msg_send ~self ~cmd:(selector "authorization:didCompleteWithHTTPAuthorizationHeaders:") ~typ:(id @-> id @-> returning void) x didCompleteWithHTTPAuthorizationHeaders let authorization2 x ~didCompleteWithHTTPResponse ~httpBody self = msg_send ~self ~cmd:(selector "authorization:didCompleteWithHTTPResponse:httpBody:") ~typ:(id @-> id @-> id @-> returning void) x didCompleteWithHTTPResponse httpBody diff --git a/WebKit/WKSOAuthorizationDelegateClass.ml b/WebKit/WKSOAuthorizationDelegateClass.ml deleted file mode 100644 index a2e929c2..00000000 --- a/WebKit/WKSOAuthorizationDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksoauthorizationdelegate?language=objc}WKSOAuthorizationDelegate} *) - -let self = get_class "WKSOAuthorizationDelegate" - diff --git a/WebKit/WKSOSecretDelegate.ml b/WebKit/WKSOSecretDelegate.ml index 29337330..a0a0d9ad 100644 --- a/WebKit/WKSOSecretDelegate.ml +++ b/WebKit/WKSOSecretDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksosecretdelegate?language=objc}WKSOSecretDelegate} *) +let self = get_class "WKSOSecretDelegate" + let initWithSession x self = msg_send ~self ~cmd:(selector "initWithSession:") ~typ:((ptr void) @-> returning id) x let webView x ~didFinishNavigation self = msg_send ~self ~cmd:(selector "webView:didFinishNavigation:") ~typ:(id @-> id @-> returning void) x didFinishNavigation let webView' x ~decidePolicyForNavigationAction ~decisionHandler self = msg_send ~self ~cmd:(selector "webView:decidePolicyForNavigationAction:decisionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x decidePolicyForNavigationAction decisionHandler diff --git a/WebKit/WKSOSecretDelegateClass.ml b/WebKit/WKSOSecretDelegateClass.ml deleted file mode 100644 index 6b8ee6dc..00000000 --- a/WebKit/WKSOSecretDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksosecretdelegate?language=objc}WKSOSecretDelegate} *) - -let self = get_class "WKSOSecretDelegate" - diff --git a/WebKit/WKSafeBrowsingBox.ml b/WebKit/WKSafeBrowsingBox.ml index 91331f9b..9545a20f 100644 --- a/WebKit/WKSafeBrowsingBox.ml +++ b/WebKit/WKSafeBrowsingBox.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingbox?language=objc}WKSafeBrowsingBox} *) +let self = get_class "WKSafeBrowsingBox" + let setSafeBrowsingBackgroundColor x self = msg_send ~self ~cmd:(selector "setSafeBrowsingBackgroundColor:") ~typ:(id @-> returning void) x let updateLayer self = msg_send ~self ~cmd:(selector "updateLayer") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKSafeBrowsingBoxClass.ml b/WebKit/WKSafeBrowsingBoxClass.ml deleted file mode 100644 index 1933d5b3..00000000 --- a/WebKit/WKSafeBrowsingBoxClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingbox?language=objc}WKSafeBrowsingBox} *) - -let self = get_class "WKSafeBrowsingBox" - diff --git a/WebKit/WKSafeBrowsingExclamationPoint.ml b/WebKit/WKSafeBrowsingExclamationPoint.ml index 31b8c66e..e5f4a489 100644 --- a/WebKit/WKSafeBrowsingExclamationPoint.ml +++ b/WebKit/WKSafeBrowsingExclamationPoint.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingexclamationpoint?language=objc}WKSafeBrowsingExclamationPoint} *) +let self = get_class "WKSafeBrowsingExclamationPoint" + let drawRect x self = msg_send ~self ~cmd:(selector "drawRect:") ~typ:(CGRect.t @-> returning void) x let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) let viewDidChangeEffectiveAppearance self = msg_send ~self ~cmd:(selector "viewDidChangeEffectiveAppearance") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKSafeBrowsingExclamationPointClass.ml b/WebKit/WKSafeBrowsingExclamationPointClass.ml deleted file mode 100644 index 8491cf51..00000000 --- a/WebKit/WKSafeBrowsingExclamationPointClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingexclamationpoint?language=objc}WKSafeBrowsingExclamationPoint} *) - -let self = get_class "WKSafeBrowsingExclamationPoint" - diff --git a/WebKit/WKSafeBrowsingTextView.ml b/WebKit/WKSafeBrowsingTextView.ml index 645dc768..54fe5d74 100644 --- a/WebKit/WKSafeBrowsingTextView.ml +++ b/WebKit/WKSafeBrowsingTextView.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingtextview?language=objc}WKSafeBrowsingTextView} *) +let self = get_class "WKSafeBrowsingTextView" + let initWithAttributedString x ~forWarning self = msg_send ~self ~cmd:(selector "initWithAttributedString:forWarning:") ~typ:(id @-> id @-> returning id) x forWarning let intrinsicContentSize self = msg_send ~self ~cmd:(selector "intrinsicContentSize") ~typ:(returning CGSize.t) \ No newline at end of file diff --git a/WebKit/WKSafeBrowsingTextViewClass.ml b/WebKit/WKSafeBrowsingTextViewClass.ml deleted file mode 100644 index 7e97369a..00000000 --- a/WebKit/WKSafeBrowsingTextViewClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingtextview?language=objc}WKSafeBrowsingTextView} *) - -let self = get_class "WKSafeBrowsingTextView" - diff --git a/WebKit/WKSafeBrowsingWarning.ml b/WebKit/WKSafeBrowsingWarning.ml index 5e47988a..d2e47b10 100644 --- a/WebKit/WKSafeBrowsingWarning.ml +++ b/WebKit/WKSafeBrowsingWarning.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingwarning?language=objc}WKSafeBrowsingWarning} *) +let self = get_class "WKSafeBrowsingWarning" + let addContent self = msg_send ~self ~cmd:(selector "addContent") ~typ:(returning void) let clickedOnLink x self = msg_send ~self ~cmd:(selector "clickedOnLink:") ~typ:(id @-> returning void) x let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/WebKit/WKSafeBrowsingWarningClass.ml b/WebKit/WKSafeBrowsingWarningClass.ml deleted file mode 100644 index a082e7aa..00000000 --- a/WebKit/WKSafeBrowsingWarningClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksafebrowsingwarning?language=objc}WKSafeBrowsingWarning} *) - -let self = get_class "WKSafeBrowsingWarning" - diff --git a/WebKit/WKScriptMessage.ml b/WebKit/WKScriptMessage.ml index 2e7b86e3..e2e152cd 100644 --- a/WebKit/WKScriptMessage.ml +++ b/WebKit/WKScriptMessage.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscriptmessage?language=objc}WKScriptMessage} *) +let self = get_class "WKScriptMessage" + let body self = msg_send ~self ~cmd:(selector "body") ~typ:(returning id) let frameInfo self = msg_send ~self ~cmd:(selector "frameInfo") ~typ:(returning id) let name self = msg_send ~self ~cmd:(selector "name") ~typ:(returning id) diff --git a/WebKit/WKScriptMessageClass.ml b/WebKit/WKScriptMessageClass.ml deleted file mode 100644 index 4d72d048..00000000 --- a/WebKit/WKScriptMessageClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscriptmessage?language=objc}WKScriptMessage} *) - -let self = get_class "WKScriptMessage" - diff --git a/WebKit/WKScrollView.ml b/WebKit/WKScrollView.ml index a0c48896..7688f7bf 100644 --- a/WebKit/WKScrollView.ml +++ b/WebKit/WKScrollView.ml @@ -4,12 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollview?language=objc}WKScrollView} *) +let self = get_class "WKScrollView" + let boundsDidChange x self = msg_send ~self ~cmd:(selector "boundsDidChange:") ~typ:(id @-> returning void) x let contentOffset self = msg_send ~self ~cmd:(selector "contentOffset") ~typ:(returning CGPoint.t) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/WebKit/WKScrollViewClass.ml b/WebKit/WKScrollViewClass.ml index 6e75d6ca..c3356bf5 100644 --- a/WebKit/WKScrollViewClass.ml +++ b/WebKit/WKScrollViewClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollview?language=objc}WKScrollView} *) -let self = get_class "WKScrollView" - let isCompatibleWithResponsiveScrolling self = msg_send ~self ~cmd:(selector "isCompatibleWithResponsiveScrolling") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKScrollbarPartAnimation.ml b/WebKit/WKScrollbarPartAnimation.ml index 3d36d088..c429a8b1 100644 --- a/WebKit/WKScrollbarPartAnimation.ml +++ b/WebKit/WKScrollbarPartAnimation.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollbarpartanimation?language=objc}WKScrollbarPartAnimation} *) +let self = get_class "WKScrollbarPartAnimation" + let initWithScroller x ~featureToAnimate ~animateFrom ~animateTo ~duration self = msg_send ~self ~cmd:(selector "initWithScroller:featureToAnimate:animateFrom:animateTo:duration:") ~typ:((ptr void) @-> int @-> double @-> double @-> double @-> returning id) x featureToAnimate animateFrom animateTo duration let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void) let setCurrentProgress x self = msg_send ~self ~cmd:(selector "setCurrentProgress:") ~typ:(float @-> returning void) x diff --git a/WebKit/WKScrollbarPartAnimationClass.ml b/WebKit/WKScrollbarPartAnimationClass.ml deleted file mode 100644 index a78aec68..00000000 --- a/WebKit/WKScrollbarPartAnimationClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollbarpartanimation?language=objc}WKScrollbarPartAnimation} *) - -let self = get_class "WKScrollbarPartAnimation" - diff --git a/WebKit/WKScrollerImpDelegate.ml b/WebKit/WKScrollerImpDelegate.ml index 0b7911e4..801ed1a1 100644 --- a/WebKit/WKScrollerImpDelegate.ml +++ b/WebKit/WKScrollerImpDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollerimpdelegate?language=objc}WKScrollerImpDelegate} *) +let self = get_class "WKScrollerImpDelegate" + let cancelAnimations self = msg_send ~self ~cmd:(selector "cancelAnimations") ~typ:(returning void) let convertRectFromBacking x self = msg_send ~self ~cmd:(selector "convertRectFromBacking:") ~typ:(CGRect.t @-> returning CGRect.t) x let convertRectToBacking x self = msg_send ~self ~cmd:(selector "convertRectToBacking:") ~typ:(CGRect.t @-> returning CGRect.t) x diff --git a/WebKit/WKScrollerImpDelegateClass.ml b/WebKit/WKScrollerImpDelegateClass.ml deleted file mode 100644 index 0b3cd56b..00000000 --- a/WebKit/WKScrollerImpDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollerimpdelegate?language=objc}WKScrollerImpDelegate} *) - -let self = get_class "WKScrollerImpDelegate" - diff --git a/WebKit/WKScrollerImpPairDelegate.ml b/WebKit/WKScrollerImpPairDelegate.ml index c7cc3dd5..cfc678a0 100644 --- a/WebKit/WKScrollerImpPairDelegate.ml +++ b/WebKit/WKScrollerImpPairDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollerimppairdelegate?language=objc}WKScrollerImpPairDelegate} *) +let self = get_class "WKScrollerImpPairDelegate" + let contentAreaRectForScrollerImpPair x self = msg_send ~self ~cmd:(selector "contentAreaRectForScrollerImpPair:") ~typ:(id @-> returning CGRect.t) x let inLiveResizeForScrollerImpPair x self = msg_send ~self ~cmd:(selector "inLiveResizeForScrollerImpPair:") ~typ:(id @-> returning bool) x let initWithScrollerPair x self = msg_send ~self ~cmd:(selector "initWithScrollerPair:") ~typ:((ptr void) @-> returning id) x diff --git a/WebKit/WKScrollerImpPairDelegateClass.ml b/WebKit/WKScrollerImpPairDelegateClass.ml deleted file mode 100644 index 50df54a4..00000000 --- a/WebKit/WKScrollerImpPairDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkscrollerimppairdelegate?language=objc}WKScrollerImpPairDelegate} *) - -let self = get_class "WKScrollerImpPairDelegate" - diff --git a/WebKit/WKSecureCodingArchivingDelegate.ml b/WebKit/WKSecureCodingArchivingDelegate.ml index b38bc012..99eb5cbe 100644 --- a/WebKit/WKSecureCodingArchivingDelegate.ml +++ b/WebKit/WKSecureCodingArchivingDelegate.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurecodingarchivingdelegate?language=objc}WKSecureCodingArchivingDelegate} *) +let self = get_class "WKSecureCodingArchivingDelegate" + let archiver x ~willEncodeObject self = msg_send ~self ~cmd:(selector "archiver:willEncodeObject:") ~typ:(id @-> id @-> returning id) x willEncodeObject let unarchiver x ~didDecodeObject self = msg_send ~self ~cmd:(selector "unarchiver:didDecodeObject:") ~typ:(id @-> id @-> returning id) x didDecodeObject \ No newline at end of file diff --git a/WebKit/WKSecureCodingArchivingDelegateClass.ml b/WebKit/WKSecureCodingArchivingDelegateClass.ml deleted file mode 100644 index ac407967..00000000 --- a/WebKit/WKSecureCodingArchivingDelegateClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurecodingarchivingdelegate?language=objc}WKSecureCodingArchivingDelegate} *) - -let self = get_class "WKSecureCodingArchivingDelegate" - diff --git a/WebKit/WKSecureCodingCGColorWrapper.ml b/WebKit/WKSecureCodingCGColorWrapper.ml index 06bba6da..79ebcef8 100644 --- a/WebKit/WKSecureCodingCGColorWrapper.ml +++ b/WebKit/WKSecureCodingCGColorWrapper.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurecodingcgcolorwrapper?language=objc}WKSecureCodingCGColorWrapper} *) +let self = get_class "WKSecureCodingCGColorWrapper" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let initWithCGColor x self = msg_send ~self ~cmd:(selector "initWithCGColor:") ~typ:((ptr CGColor.t) @-> returning id) x let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x diff --git a/WebKit/WKSecureCodingCGColorWrapperClass.ml b/WebKit/WKSecureCodingCGColorWrapperClass.ml index 55da141a..2239344e 100644 --- a/WebKit/WKSecureCodingCGColorWrapperClass.ml +++ b/WebKit/WKSecureCodingCGColorWrapperClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurecodingcgcolorwrapper?language=objc}WKSecureCodingCGColorWrapper} *) -let self = get_class "WKSecureCodingCGColorWrapper" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKSecureCodingURLWrapper.ml b/WebKit/WKSecureCodingURLWrapper.ml index 4d09e7a1..db590b60 100644 --- a/WebKit/WKSecureCodingURLWrapper.ml +++ b/WebKit/WKSecureCodingURLWrapper.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurecodingurlwrapper?language=objc}WKSecureCodingURLWrapper} *) +let self = get_class "WKSecureCodingURLWrapper" + 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 diff --git a/WebKit/WKSecureCodingURLWrapperClass.ml b/WebKit/WKSecureCodingURLWrapperClass.ml index 35672e95..7baa1123 100644 --- a/WebKit/WKSecureCodingURLWrapperClass.ml +++ b/WebKit/WKSecureCodingURLWrapperClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurecodingurlwrapper?language=objc}WKSecureCodingURLWrapper} *) -let self = get_class "WKSecureCodingURLWrapper" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKSecurityOrigin.ml b/WebKit/WKSecurityOrigin.ml index 574e4ca8..921cf60d 100644 --- a/WebKit/WKSecurityOrigin.ml +++ b/WebKit/WKSecurityOrigin.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurityorigin?language=objc}WKSecurityOrigin} *) +let self = get_class "WKSecurityOrigin" + 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 host self = msg_send ~self ~cmd:(selector "host") ~typ:(returning id) diff --git a/WebKit/WKSecurityOriginClass.ml b/WebKit/WKSecurityOriginClass.ml deleted file mode 100644 index 79e495e5..00000000 --- a/WebKit/WKSecurityOriginClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksecurityorigin?language=objc}WKSecurityOrigin} *) - -let self = get_class "WKSecurityOrigin" - diff --git a/WebKit/WKSelectionHandlerWrapper.ml b/WebKit/WKSelectionHandlerWrapper.ml index d826a5af..4f831a8f 100644 --- a/WebKit/WKSelectionHandlerWrapper.ml +++ b/WebKit/WKSelectionHandlerWrapper.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkselectionhandlerwrapper?language=objc}WKSelectionHandlerWrapper} *) +let self = get_class "WKSelectionHandlerWrapper" + let executeSelectionHandler self = msg_send ~self ~cmd:(selector "executeSelectionHandler") ~typ:(returning void) let initWithSelectionHandler x self = msg_send ~self ~cmd:(selector "initWithSelectionHandler:") ~typ:((ptr void) @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKSelectionHandlerWrapperClass.ml b/WebKit/WKSelectionHandlerWrapperClass.ml deleted file mode 100644 index 5708f5c8..00000000 --- a/WebKit/WKSelectionHandlerWrapperClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkselectionhandlerwrapper?language=objc}WKSelectionHandlerWrapper} *) - -let self = get_class "WKSelectionHandlerWrapper" - diff --git a/WebKit/WKShareSheet.ml b/WebKit/WKShareSheet.ml index 31cc08d0..dfc32c46 100644 --- a/WebKit/WKShareSheet.ml +++ b/WebKit/WKShareSheet.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksharesheet?language=objc}WKShareSheet} *) +let self = get_class "WKShareSheet" + 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 initWithView x self = msg_send ~self ~cmd:(selector "initWithView:") ~typ:(id @-> returning id) x diff --git a/WebKit/WKShareSheetClass.ml b/WebKit/WKShareSheetClass.ml index 048dacf4..ee904e89 100644 --- a/WebKit/WKShareSheetClass.ml +++ b/WebKit/WKShareSheetClass.ml @@ -4,13 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksharesheet?language=objc}WKShareSheet} *) -let self = get_class "WKShareSheet" - let applyQuarantineSandboxAndDownloadFlagsToFileAtPath x self = msg_send ~self ~cmd:(selector "applyQuarantineSandboxAndDownloadFlagsToFileAtPath:") ~typ:(id @-> returning bool) x let createRandomSharingDirectoryForFile x self = msg_send ~self ~cmd:(selector "createRandomSharingDirectoryForFile:") ~typ:(id @-> returning id) x let createTemporarySharingDirectory self = msg_send ~self ~cmd:(selector "createTemporarySharingDirectory") ~typ:(returning id) diff --git a/WebKit/WKSharingServicePickerDelegate.ml b/WebKit/WKSharingServicePickerDelegate.ml index 53c642fe..654b67e1 100644 --- a/WebKit/WKSharingServicePickerDelegate.ml +++ b/WebKit/WKSharingServicePickerDelegate.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksharingservicepickerdelegate?language=objc}WKSharingServicePickerDelegate} *) +let self = get_class "WKSharingServicePickerDelegate" + let menuProxy self = msg_send ~self ~cmd:(selector "menuProxy") ~typ:(returning (ptr void)) let setAttachmentID x self = msg_send ~self ~cmd:(selector "setAttachmentID:") ~typ:(void @-> returning void) x let setFiltersEditingServices x self = msg_send ~self ~cmd:(selector "setFiltersEditingServices:") ~typ:(bool @-> returning void) x diff --git a/WebKit/WKSharingServicePickerDelegateClass.ml b/WebKit/WKSharingServicePickerDelegateClass.ml index 3722ed2d..cc91cc17 100644 --- a/WebKit/WKSharingServicePickerDelegateClass.ml +++ b/WebKit/WKSharingServicePickerDelegateClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksharingservicepickerdelegate?language=objc}WKSharingServicePickerDelegate} *) -let self = get_class "WKSharingServicePickerDelegate" - let sharedSharingServicePickerDelegate self = msg_send ~self ~cmd:(selector "sharedSharingServicePickerDelegate") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKSnapshotConfiguration.ml b/WebKit/WKSnapshotConfiguration.ml index a4cc9dd2..1cb8c4d9 100644 --- a/WebKit/WKSnapshotConfiguration.ml +++ b/WebKit/WKSnapshotConfiguration.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksnapshotconfiguration?language=objc}WKSnapshotConfiguration} *) +let self = get_class "WKSnapshotConfiguration" + let afterScreenUpdates self = msg_send ~self ~cmd:(selector "afterScreenUpdates") ~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) diff --git a/WebKit/WKSnapshotConfigurationClass.ml b/WebKit/WKSnapshotConfigurationClass.ml deleted file mode 100644 index 133cf4c8..00000000 --- a/WebKit/WKSnapshotConfigurationClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wksnapshotconfiguration?language=objc}WKSnapshotConfiguration} *) - -let self = get_class "WKSnapshotConfiguration" - diff --git a/WebKit/WKSwipeCancellationTracker.ml b/WebKit/WKSwipeCancellationTracker.ml index 68b0317f..00bf7f78 100644 --- a/WebKit/WKSwipeCancellationTracker.ml +++ b/WebKit/WKSwipeCancellationTracker.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkswipecancellationtracker?language=objc}WKSwipeCancellationTracker} *) +let self = get_class "WKSwipeCancellationTracker" + let isCancelled self = msg_send ~self ~cmd:(selector "isCancelled") ~typ:(returning bool) let setIsCancelled x self = msg_send ~self ~cmd:(selector "setIsCancelled:") ~typ:(bool @-> returning void) x \ No newline at end of file diff --git a/WebKit/WKSwipeCancellationTrackerClass.ml b/WebKit/WKSwipeCancellationTrackerClass.ml deleted file mode 100644 index d3985069..00000000 --- a/WebKit/WKSwipeCancellationTrackerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkswipecancellationtracker?language=objc}WKSwipeCancellationTracker} *) - -let self = get_class "WKSwipeCancellationTracker" - diff --git a/WebKit/WKTextFinderClient.ml b/WebKit/WKTextFinderClient.ml index c80fae80..2fffdfea 100644 --- a/WebKit/WKTextFinderClient.ml +++ b/WebKit/WKTextFinderClient.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextfinderclient?language=objc}WKTextFinderClient} *) +let self = get_class "WKTextFinderClient" + let didFindStringMatchesWithRects x ~didWrapAround self = msg_send ~self ~cmd:(selector "didFindStringMatchesWithRects:didWrapAround:") ~typ:((ptr void) @-> bool @-> returning void) x didWrapAround let didGetImageForMatchResult x self = msg_send ~self ~cmd:(selector "didGetImageForMatchResult:") ~typ:((ptr void) @-> returning void) x let findMatchesForString x ~relativeToMatch ~findOptions ~maxResults ~resultCollector self = msg_send ~self ~cmd:(selector "findMatchesForString:relativeToMatch:findOptions:maxResults:resultCollector:") ~typ:(id @-> id @-> ullong @-> ullong @-> (ptr void) @-> returning void) x relativeToMatch (ULLong.of_int findOptions) (ULLong.of_int maxResults) resultCollector diff --git a/WebKit/WKTextFinderClientClass.ml b/WebKit/WKTextFinderClientClass.ml deleted file mode 100644 index 65f0cab4..00000000 --- a/WebKit/WKTextFinderClientClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextfinderclient?language=objc}WKTextFinderClient} *) - -let self = get_class "WKTextFinderClient" - diff --git a/WebKit/WKTextFinderMatch.ml b/WebKit/WKTextFinderMatch.ml index 44181068..09651b3d 100644 --- a/WebKit/WKTextFinderMatch.ml +++ b/WebKit/WKTextFinderMatch.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextfindermatch?language=objc}WKTextFinderMatch} *) +let self = get_class "WKTextFinderMatch" + let containingView self = msg_send ~self ~cmd:(selector "containingView") ~typ:(returning id) let generateTextImage x self = msg_send ~self ~cmd:(selector "generateTextImage:") ~typ:((ptr void) @-> returning void) x let index self = msg_send ~self ~cmd:(selector "index") ~typ:(returning uint) diff --git a/WebKit/WKTextFinderMatchClass.ml b/WebKit/WKTextFinderMatchClass.ml deleted file mode 100644 index 8cec3c6c..00000000 --- a/WebKit/WKTextFinderMatchClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextfindermatch?language=objc}WKTextFinderMatch} *) - -let self = get_class "WKTextFinderMatch" - diff --git a/WebKit/WKTextInputPanel.ml b/WebKit/WKTextInputPanel.ml index 407d19d8..c96104ef 100644 --- a/WebKit/WKTextInputPanel.ml +++ b/WebKit/WKTextInputPanel.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextinputpanel?language=objc}WKTextInputPanel} *) +let self = get_class "WKTextInputPanel" + 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/WebKit/WKTextInputPanelClass.ml b/WebKit/WKTextInputPanelClass.ml deleted file mode 100644 index c5c752d4..00000000 --- a/WebKit/WKTextInputPanelClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextinputpanel?language=objc}WKTextInputPanel} *) - -let self = get_class "WKTextInputPanel" - diff --git a/WebKit/WKTextInputWindowController.ml b/WebKit/WKTextInputWindowController.ml index 9c9bc967..1075b6e1 100644 --- a/WebKit/WKTextInputWindowController.ml +++ b/WebKit/WKTextInputWindowController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextinputwindowcontroller?language=objc}WKTextInputWindowController} *) +let self = get_class "WKTextInputWindowController" + let hasMarkedText self = msg_send ~self ~cmd:(selector "hasMarkedText") ~typ:(returning bool) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let inputContext self = msg_send ~self ~cmd:(selector "inputContext") ~typ:(returning id) diff --git a/WebKit/WKTextInputWindowControllerClass.ml b/WebKit/WKTextInputWindowControllerClass.ml index 118a8d7a..a69a4087 100644 --- a/WebKit/WKTextInputWindowControllerClass.ml +++ b/WebKit/WKTextInputWindowControllerClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextinputwindowcontroller?language=objc}WKTextInputWindowController} *) -let self = get_class "WKTextInputWindowController" - let sharedTextInputWindowController self = msg_send ~self ~cmd:(selector "sharedTextInputWindowController") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKTextListTouchBarViewController.ml b/WebKit/WKTextListTouchBarViewController.ml index aafe08c0..ec9ee291 100644 --- a/WebKit/WKTextListTouchBarViewController.ml +++ b/WebKit/WKTextListTouchBarViewController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextlisttouchbarviewcontroller?language=objc}WKTextListTouchBarViewController} *) +let self = get_class "WKTextListTouchBarViewController" + let currentListType self = msg_send ~self ~cmd:(selector "currentListType") ~typ:(returning int) let didDestroyView self = msg_send ~self ~cmd:(selector "didDestroyView") ~typ:(returning void) let initWithWebViewImpl x self = msg_send ~self ~cmd:(selector "initWithWebViewImpl:") ~typ:((ptr void) @-> returning id) x diff --git a/WebKit/WKTextListTouchBarViewControllerClass.ml b/WebKit/WKTextListTouchBarViewControllerClass.ml deleted file mode 100644 index 8bae41a7..00000000 --- a/WebKit/WKTextListTouchBarViewControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktextlisttouchbarviewcontroller?language=objc}WKTextListTouchBarViewController} *) - -let self = get_class "WKTextListTouchBarViewController" - diff --git a/WebKit/WKTextTouchBarItemController.ml b/WebKit/WKTextTouchBarItemController.ml index dff0807e..90388abd 100644 --- a/WebKit/WKTextTouchBarItemController.ml +++ b/WebKit/WKTextTouchBarItemController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktexttouchbaritemcontroller?language=objc}WKTextTouchBarItemController} *) +let self = get_class "WKTextTouchBarItemController" + let candidateListTouchBarItem x ~changedCandidateListVisibility self = msg_send ~self ~cmd:(selector "candidateListTouchBarItem:changedCandidateListVisibility:") ~typ:(id @-> bool @-> returning void) x changedCandidateListVisibility let candidateListTouchBarItem' x ~endSelectingCandidateAtIndex self = msg_send ~self ~cmd:(selector "candidateListTouchBarItem:endSelectingCandidateAtIndex:") ~typ:(id @-> llong @-> returning void) x (LLong.of_int endSelectingCandidateAtIndex) let currentTextAlignment self = msg_send ~self ~cmd:(selector "currentTextAlignment") ~typ:(returning llong) diff --git a/WebKit/WKTextTouchBarItemControllerClass.ml b/WebKit/WKTextTouchBarItemControllerClass.ml deleted file mode 100644 index 33d1460e..00000000 --- a/WebKit/WKTextTouchBarItemControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktexttouchbaritemcontroller?language=objc}WKTextTouchBarItemController} *) - -let self = get_class "WKTextTouchBarItemController" - diff --git a/WebKit/WKTypeRefWrapper.ml b/WebKit/WKTypeRefWrapper.ml index 4ecaa303..45f33bee 100644 --- a/WebKit/WKTypeRefWrapper.ml +++ b/WebKit/WKTypeRefWrapper.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktyperefwrapper?language=objc}WKTypeRefWrapper} *) +let self = get_class "WKTypeRefWrapper" + let initWithObject x self = msg_send ~self ~cmd:(selector "initWithObject:") ~typ:((ptr void) @-> returning id) x let object_ self = msg_send ~self ~cmd:(selector "object") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/WebKit/WKTypeRefWrapperClass.ml b/WebKit/WKTypeRefWrapperClass.ml deleted file mode 100644 index fde373f6..00000000 --- a/WebKit/WKTypeRefWrapperClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wktyperefwrapper?language=objc}WKTypeRefWrapper} *) - -let self = get_class "WKTypeRefWrapper" - diff --git a/WebKit/WKURLSchemeTaskImpl.ml b/WebKit/WKURLSchemeTaskImpl.ml index df766839..7cce0436 100644 --- a/WebKit/WKURLSchemeTaskImpl.ml +++ b/WebKit/WKURLSchemeTaskImpl.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkurlschemetaskimpl?language=objc}WKURLSchemeTaskImpl} *) +let self = get_class "WKURLSchemeTaskImpl" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let didFailWithError x self = msg_send ~self ~cmd:(selector "didFailWithError:") ~typ:(id @-> returning void) x let didFinish self = msg_send ~self ~cmd:(selector "didFinish") ~typ:(returning void) diff --git a/WebKit/WKURLSchemeTaskImplClass.ml b/WebKit/WKURLSchemeTaskImplClass.ml deleted file mode 100644 index d94d2fef..00000000 --- a/WebKit/WKURLSchemeTaskImplClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkurlschemetaskimpl?language=objc}WKURLSchemeTaskImpl} *) - -let self = get_class "WKURLSchemeTaskImpl" - diff --git a/WebKit/WKUserContentController.ml b/WebKit/WKUserContentController.ml index b2b135bf..f580137c 100644 --- a/WebKit/WKUserContentController.ml +++ b/WebKit/WKUserContentController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkusercontentcontroller?language=objc}WKUserContentController} *) +let self = get_class "WKUserContentController" + let addContentRuleList x self = msg_send ~self ~cmd:(selector "addContentRuleList:") ~typ:(id @-> returning void) x let addScriptMessageHandler x ~name self = msg_send ~self ~cmd:(selector "addScriptMessageHandler:name:") ~typ:(id @-> id @-> returning void) x name let addScriptMessageHandler' x ~contentWorld ~name self = msg_send ~self ~cmd:(selector "addScriptMessageHandler:contentWorld:name:") ~typ:(id @-> id @-> id @-> returning void) x contentWorld name diff --git a/WebKit/WKUserContentControllerClass.ml b/WebKit/WKUserContentControllerClass.ml index c3d30f8c..aa50c9ec 100644 --- a/WebKit/WKUserContentControllerClass.ml +++ b/WebKit/WKUserContentControllerClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkusercontentcontroller?language=objc}WKUserContentController} *) -let self = get_class "WKUserContentController" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKUserDataWrapper.ml b/WebKit/WKUserDataWrapper.ml index c32db199..992e5e2c 100644 --- a/WebKit/WKUserDataWrapper.ml +++ b/WebKit/WKUserDataWrapper.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkuserdatawrapper?language=objc}WKUserDataWrapper} *) +let self = get_class "WKUserDataWrapper" + let initWithUserData x self = msg_send ~self ~cmd:(selector "initWithUserData:") ~typ:((ptr void) @-> returning id) x let userData self = msg_send ~self ~cmd:(selector "userData") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/WebKit/WKUserDataWrapperClass.ml b/WebKit/WKUserDataWrapperClass.ml deleted file mode 100644 index 3a50f5fd..00000000 --- a/WebKit/WKUserDataWrapperClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkuserdatawrapper?language=objc}WKUserDataWrapper} *) - -let self = get_class "WKUserDataWrapper" - diff --git a/WebKit/WKUserDefaults.ml b/WebKit/WKUserDefaults.ml index 02a57c32..9ba90bf3 100644 --- a/WebKit/WKUserDefaults.ml +++ b/WebKit/WKUserDefaults.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkuserdefaults?language=objc}WKUserDefaults} *) +let self = get_class "WKUserDefaults" + let findPreferenceChangesAndNotifyForKeys x ~toValuesForKeys self = msg_send ~self ~cmd:(selector "findPreferenceChangesAndNotifyForKeys:toValuesForKeys:") ~typ:(id @-> id @-> returning void) x toValuesForKeys let initWithSuiteName x self = msg_send ~self ~cmd:(selector "initWithSuiteName:") ~typ:(id @-> returning id) 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 \ No newline at end of file diff --git a/WebKit/WKUserDefaultsClass.ml b/WebKit/WKUserDefaultsClass.ml deleted file mode 100644 index 1585fcb1..00000000 --- a/WebKit/WKUserDefaultsClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkuserdefaults?language=objc}WKUserDefaults} *) - -let self = get_class "WKUserDefaults" - diff --git a/WebKit/WKUserScript.ml b/WebKit/WKUserScript.ml index 7e7ca865..ed60c2d5 100644 --- a/WebKit/WKUserScript.ml +++ b/WebKit/WKUserScript.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkuserscript?language=objc}WKUserScript} *) +let self = get_class "WKUserScript" + 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 initWithSource x ~injectionTime ~forMainFrameOnly self = msg_send ~self ~cmd:(selector "initWithSource:injectionTime:forMainFrameOnly:") ~typ:(id @-> llong @-> bool @-> returning id) x (LLong.of_int injectionTime) forMainFrameOnly diff --git a/WebKit/WKUserScriptClass.ml b/WebKit/WKUserScriptClass.ml deleted file mode 100644 index 6f60ae6f..00000000 --- a/WebKit/WKUserScriptClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkuserscript?language=objc}WKUserScript} *) - -let self = get_class "WKUserScript" - diff --git a/WebKit/WKVideoLayerRemote.ml b/WebKit/WKVideoLayerRemote.ml index 1bfee804..4debed1d 100644 --- a/WebKit/WKVideoLayerRemote.ml +++ b/WebKit/WKVideoLayerRemote.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkvideolayerremote?language=objc}WKVideoLayerRemote} *) +let self = get_class "WKVideoLayerRemote" + 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 mediaPlayerPrivateRemote self = msg_send ~self ~cmd:(selector "mediaPlayerPrivateRemote") ~typ:(returning (ptr void)) diff --git a/WebKit/WKVideoLayerRemoteClass.ml b/WebKit/WKVideoLayerRemoteClass.ml deleted file mode 100644 index 311460fc..00000000 --- a/WebKit/WKVideoLayerRemoteClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkvideolayerremote?language=objc}WKVideoLayerRemote} *) - -let self = get_class "WKVideoLayerRemote" - diff --git a/WebKit/WKView.ml b/WebKit/WKView.ml index a6cedb21..cd53dc33 100644 --- a/WebKit/WKView.ml +++ b/WebKit/WKView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkview?language=objc}WKView} *) +let self = get_class "WKView" + 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 acceptsPreviewPanelControl x self = msg_send ~self ~cmd:(selector "acceptsPreviewPanelControl:") ~typ:(id @-> returning bool) x diff --git a/WebKit/WKViewClass.ml b/WebKit/WKViewClass.ml index f056dd12..6929fa0e 100644 --- a/WebKit/WKViewClass.ml +++ b/WebKit/WKViewClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkview?language=objc}WKView} *) -let self = get_class "WKView" - let hideWordDefinitionWindow self = msg_send ~self ~cmd:(selector "hideWordDefinitionWindow") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy.ml b/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy.ml index ce683ec8..3fc168b1 100644 --- a/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy.ml +++ b/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewdynamicsizecomputedfromminimumdocumentsizelayoutstrategy?language=objc}WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy} *) +let self = get_class "WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy" + let initWithPage x ~view ~viewImpl ~mode self = msg_send ~self ~cmd:(selector "initWithPage:view:viewImpl:mode:") ~typ:(id @-> id @-> id @-> uint @-> returning id) x view viewImpl mode let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) let willChangeLayoutStrategy self = msg_send ~self ~cmd:(selector "willChangeLayoutStrategy") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategyClass.ml b/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategyClass.ml deleted file mode 100644 index f53631ea..00000000 --- a/WebKit/WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategyClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewdynamicsizecomputedfromminimumdocumentsizelayoutstrategy?language=objc}WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy} *) - -let self = get_class "WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy" - diff --git a/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategy.ml b/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategy.ml index f7efee65..e64c0fc7 100644 --- a/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategy.ml +++ b/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategy.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewdynamicsizecomputedfromviewscalelayoutstrategy?language=objc}WKViewDynamicSizeComputedFromViewScaleLayoutStrategy} *) +let self = get_class "WKViewDynamicSizeComputedFromViewScaleLayoutStrategy" + let didChangeFrameSize self = msg_send ~self ~cmd:(selector "didChangeFrameSize") ~typ:(returning void) let didChangeViewScale self = msg_send ~self ~cmd:(selector "didChangeViewScale") ~typ:(returning void) let initWithPage x ~view ~viewImpl ~mode self = msg_send ~self ~cmd:(selector "initWithPage:view:viewImpl:mode:") ~typ:(id @-> id @-> id @-> uint @-> returning id) x view viewImpl mode diff --git a/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategyClass.ml b/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategyClass.ml deleted file mode 100644 index e5c2b518..00000000 --- a/WebKit/WKViewDynamicSizeComputedFromViewScaleLayoutStrategyClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewdynamicsizecomputedfromviewscalelayoutstrategy?language=objc}WKViewDynamicSizeComputedFromViewScaleLayoutStrategy} *) - -let self = get_class "WKViewDynamicSizeComputedFromViewScaleLayoutStrategy" - diff --git a/WebKit/WKViewFixedSizeLayoutStrategy.ml b/WebKit/WKViewFixedSizeLayoutStrategy.ml index 34d262e1..7318ea86 100644 --- a/WebKit/WKViewFixedSizeLayoutStrategy.ml +++ b/WebKit/WKViewFixedSizeLayoutStrategy.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewfixedsizelayoutstrategy?language=objc}WKViewFixedSizeLayoutStrategy} *) +let self = get_class "WKViewFixedSizeLayoutStrategy" + let initWithPage x ~view ~viewImpl ~mode self = msg_send ~self ~cmd:(selector "initWithPage:view:viewImpl:mode:") ~typ:(id @-> id @-> id @-> uint @-> returning id) x view viewImpl mode let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKViewFixedSizeLayoutStrategyClass.ml b/WebKit/WKViewFixedSizeLayoutStrategyClass.ml deleted file mode 100644 index 62d5819e..00000000 --- a/WebKit/WKViewFixedSizeLayoutStrategyClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewfixedsizelayoutstrategy?language=objc}WKViewFixedSizeLayoutStrategy} *) - -let self = get_class "WKViewFixedSizeLayoutStrategy" - diff --git a/WebKit/WKViewLayoutStrategy.ml b/WebKit/WKViewLayoutStrategy.ml index c94cbc46..4f6a3985 100644 --- a/WebKit/WKViewLayoutStrategy.ml +++ b/WebKit/WKViewLayoutStrategy.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewlayoutstrategy?language=objc}WKViewLayoutStrategy} *) +let self = get_class "WKViewLayoutStrategy" + let didChangeFrameSize self = msg_send ~self ~cmd:(selector "didChangeFrameSize") ~typ:(returning void) let didChangeViewScale self = msg_send ~self ~cmd:(selector "didChangeViewScale") ~typ:(returning void) let didEndLiveResize self = msg_send ~self ~cmd:(selector "didEndLiveResize") ~typ:(returning void) diff --git a/WebKit/WKViewLayoutStrategyClass.ml b/WebKit/WKViewLayoutStrategyClass.ml index 89fd1064..82c9fe04 100644 --- a/WebKit/WKViewLayoutStrategyClass.ml +++ b/WebKit/WKViewLayoutStrategyClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewlayoutstrategy?language=objc}WKViewLayoutStrategy} *) -let self = get_class "WKViewLayoutStrategy" - let layoutStrategyWithPage x ~view ~viewImpl ~mode self = msg_send ~self ~cmd:(selector "layoutStrategyWithPage:view:viewImpl:mode:") ~typ:(id @-> id @-> id @-> uint @-> returning id) x view viewImpl mode \ No newline at end of file diff --git a/WebKit/WKViewViewSizeLayoutStrategy.ml b/WebKit/WKViewViewSizeLayoutStrategy.ml index 64ceb931..24cf0f32 100644 --- a/WebKit/WKViewViewSizeLayoutStrategy.ml +++ b/WebKit/WKViewViewSizeLayoutStrategy.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewviewsizelayoutstrategy?language=objc}WKViewViewSizeLayoutStrategy} *) +let self = get_class "WKViewViewSizeLayoutStrategy" + let initWithPage x ~view ~viewImpl ~mode self = msg_send ~self ~cmd:(selector "initWithPage:view:viewImpl:mode:") ~typ:(id @-> id @-> id @-> uint @-> returning id) x view viewImpl mode let updateLayout self = msg_send ~self ~cmd:(selector "updateLayout") ~typ:(returning void) \ No newline at end of file diff --git a/WebKit/WKViewViewSizeLayoutStrategyClass.ml b/WebKit/WKViewViewSizeLayoutStrategyClass.ml deleted file mode 100644 index 0b642bc9..00000000 --- a/WebKit/WKViewViewSizeLayoutStrategyClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkviewviewsizelayoutstrategy?language=objc}WKViewViewSizeLayoutStrategy} *) - -let self = get_class "WKViewViewSizeLayoutStrategy" - diff --git a/WebKit/WKWebInspectorPreferenceObserver.ml b/WebKit/WKWebInspectorPreferenceObserver.ml index 82ddd327..2ed61425 100644 --- a/WebKit/WKWebInspectorPreferenceObserver.ml +++ b/WebKit/WKWebInspectorPreferenceObserver.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebinspectorpreferenceobserver?language=objc}WKWebInspectorPreferenceObserver} *) +let self = get_class "WKWebInspectorPreferenceObserver" + 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 \ No newline at end of file diff --git a/WebKit/WKWebInspectorPreferenceObserverClass.ml b/WebKit/WKWebInspectorPreferenceObserverClass.ml index 32834410..b6ef85c6 100644 --- a/WebKit/WKWebInspectorPreferenceObserverClass.ml +++ b/WebKit/WKWebInspectorPreferenceObserverClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebinspectorpreferenceobserver?language=objc}WKWebInspectorPreferenceObserver} *) -let self = get_class "WKWebInspectorPreferenceObserver" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKWebInspectorUIProxyObjCAdapter.ml b/WebKit/WKWebInspectorUIProxyObjCAdapter.ml index f5c16538..41a941ff 100644 --- a/WebKit/WKWebInspectorUIProxyObjCAdapter.ml +++ b/WebKit/WKWebInspectorUIProxyObjCAdapter.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebinspectoruiproxyobjcadapter?language=objc}WKWebInspectorUIProxyObjCAdapter} *) +let self = get_class "WKWebInspectorUIProxyObjCAdapter" + let initWithWebInspectorUIProxy x self = msg_send ~self ~cmd:(selector "initWithWebInspectorUIProxy:") ~typ:((ptr void) @-> returning id) x let inspectedViewFrameDidChange x self = msg_send ~self ~cmd:(selector "inspectedViewFrameDidChange:") ~typ:(id @-> returning void) x let inspector self = msg_send ~self ~cmd:(selector "inspector") ~typ:(returning id) diff --git a/WebKit/WKWebInspectorUIProxyObjCAdapterClass.ml b/WebKit/WKWebInspectorUIProxyObjCAdapterClass.ml deleted file mode 100644 index bc870859..00000000 --- a/WebKit/WKWebInspectorUIProxyObjCAdapterClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebinspectoruiproxyobjcadapter?language=objc}WKWebInspectorUIProxyObjCAdapter} *) - -let self = get_class "WKWebInspectorUIProxyObjCAdapter" - diff --git a/WebKit/WKWebProcessBundleParameters.ml b/WebKit/WKWebProcessBundleParameters.ml index 258da16d..20abf21b 100644 --- a/WebKit/WKWebProcessBundleParameters.ml +++ b/WebKit/WKWebProcessBundleParameters.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocessbundleparameters?language=objc}WKWebProcessBundleParameters} *) +let self = get_class "WKWebProcessBundleParameters" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let initWithDictionary x self = msg_send ~self ~cmd:(selector "initWithDictionary:") ~typ:(id @-> returning id) x let setParameter x ~forKey self = msg_send ~self ~cmd:(selector "setParameter:forKey:") ~typ:(id @-> id @-> returning void) x forKey diff --git a/WebKit/WKWebProcessBundleParametersClass.ml b/WebKit/WKWebProcessBundleParametersClass.ml deleted file mode 100644 index 375e22ef..00000000 --- a/WebKit/WKWebProcessBundleParametersClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocessbundleparameters?language=objc}WKWebProcessBundleParameters} *) - -let self = get_class "WKWebProcessBundleParameters" - diff --git a/WebKit/WKWebProcessPlugInBrowserContextController.ml b/WebKit/WKWebProcessPlugInBrowserContextController.ml index 317520b2..d678318e 100644 --- a/WebKit/WKWebProcessPlugInBrowserContextController.ml +++ b/WebKit/WKWebProcessPlugInBrowserContextController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginbrowsercontextcontroller?language=objc}WKWebProcessPlugInBrowserContextController} *) +let self = get_class "WKWebProcessPlugInBrowserContextController" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let handle self = msg_send ~self ~cmd:(selector "handle") ~typ:(returning id) let loadDelegate self = msg_send ~self ~cmd:(selector "loadDelegate") ~typ:(returning id) diff --git a/WebKit/WKWebProcessPlugInBrowserContextControllerClass.ml b/WebKit/WKWebProcessPlugInBrowserContextControllerClass.ml index 4320d44b..beab3538 100644 --- a/WebKit/WKWebProcessPlugInBrowserContextControllerClass.ml +++ b/WebKit/WKWebProcessPlugInBrowserContextControllerClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginbrowsercontextcontroller?language=objc}WKWebProcessPlugInBrowserContextController} *) -let self = get_class "WKWebProcessPlugInBrowserContextController" - let lookUpBrowsingContextFromHandle x self = msg_send ~self ~cmd:(selector "lookUpBrowsingContextFromHandle:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKWebProcessPlugInController.ml b/WebKit/WKWebProcessPlugInController.ml index d69b1592..73cb8a5c 100644 --- a/WebKit/WKWebProcessPlugInController.ml +++ b/WebKit/WKWebProcessPlugInController.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocessplugincontroller?language=objc}WKWebProcessPlugInController} *) +let self = get_class "WKWebProcessPlugInController" + 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 extendClassesForParameterCoder x self = msg_send ~self ~cmd:(selector "extendClassesForParameterCoder:") ~typ:(id @-> returning void) x diff --git a/WebKit/WKWebProcessPlugInControllerClass.ml b/WebKit/WKWebProcessPlugInControllerClass.ml deleted file mode 100644 index d3752eaf..00000000 --- a/WebKit/WKWebProcessPlugInControllerClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocessplugincontroller?language=objc}WKWebProcessPlugInController} *) - -let self = get_class "WKWebProcessPlugInController" - diff --git a/WebKit/WKWebProcessPlugInFrame.ml b/WebKit/WKWebProcessPlugInFrame.ml index 124a5744..25e77e9f 100644 --- a/WebKit/WKWebProcessPlugInFrame.ml +++ b/WebKit/WKWebProcessPlugInFrame.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginframe?language=objc}WKWebProcessPlugInFrame} *) +let self = get_class "WKWebProcessPlugInFrame" + let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) let appleTouchIconURLs self = msg_send ~self ~cmd:(selector "appleTouchIconURLs") ~typ:(returning id) let childFrames self = msg_send ~self ~cmd:(selector "childFrames") ~typ:(returning id) diff --git a/WebKit/WKWebProcessPlugInFrameClass.ml b/WebKit/WKWebProcessPlugInFrameClass.ml index 16f4c9b6..9bc309da 100644 --- a/WebKit/WKWebProcessPlugInFrameClass.ml +++ b/WebKit/WKWebProcessPlugInFrameClass.ml @@ -4,12 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginframe?language=objc}WKWebProcessPlugInFrame} *) -let self = get_class "WKWebProcessPlugInFrame" - let lookUpFrameFromHandle x self = msg_send ~self ~cmd:(selector "lookUpFrameFromHandle:") ~typ:(id @-> returning id) x let lookUpFrameFromJSContext x self = msg_send ~self ~cmd:(selector "lookUpFrameFromJSContext:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/WebKit/WKWebProcessPlugInHitTestResult.ml b/WebKit/WKWebProcessPlugInHitTestResult.ml index 52f694be..e3de2c54 100644 --- a/WebKit/WKWebProcessPlugInHitTestResult.ml +++ b/WebKit/WKWebProcessPlugInHitTestResult.ml @@ -4,10 +4,11 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginhittestresult?language=objc}WKWebProcessPlugInHitTestResult} *) +let self = get_class "WKWebProcessPlugInHitTestResult" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let nodeHandle self = msg_send ~self ~cmd:(selector "nodeHandle") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKWebProcessPlugInHitTestResultClass.ml b/WebKit/WKWebProcessPlugInHitTestResultClass.ml deleted file mode 100644 index 5d2bffff..00000000 --- a/WebKit/WKWebProcessPlugInHitTestResultClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginhittestresult?language=objc}WKWebProcessPlugInHitTestResult} *) - -let self = get_class "WKWebProcessPlugInHitTestResult" - diff --git a/WebKit/WKWebProcessPlugInNodeHandle.ml b/WebKit/WKWebProcessPlugInNodeHandle.ml index 6966977e..0ee2ea05 100644 --- a/WebKit/WKWebProcessPlugInNodeHandle.ml +++ b/WebKit/WKWebProcessPlugInNodeHandle.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginnodehandle?language=objc}WKWebProcessPlugInNodeHandle} *) +let self = get_class "WKWebProcessPlugInNodeHandle" + let _HTMLInputElementIsAutoFilled self = msg_send ~self ~cmd:(selector "HTMLInputElementIsAutoFilled") ~typ:(returning bool) let _HTMLInputElementIsAutoFilledAndObscured self = msg_send ~self ~cmd:(selector "HTMLInputElementIsAutoFilledAndObscured") ~typ:(returning bool) let _HTMLInputElementIsAutoFilledAndViewable self = msg_send ~self ~cmd:(selector "HTMLInputElementIsAutoFilledAndViewable") ~typ:(returning bool) diff --git a/WebKit/WKWebProcessPlugInNodeHandleClass.ml b/WebKit/WKWebProcessPlugInNodeHandleClass.ml index bf7a7f2e..3ebedfdb 100644 --- a/WebKit/WKWebProcessPlugInNodeHandleClass.ml +++ b/WebKit/WKWebProcessPlugInNodeHandleClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginnodehandle?language=objc}WKWebProcessPlugInNodeHandle} *) -let self = get_class "WKWebProcessPlugInNodeHandle" - let nodeHandleWithJSValue x ~inContext self = msg_send ~self ~cmd:(selector "nodeHandleWithJSValue:inContext:") ~typ:(id @-> id @-> returning id) x inContext \ No newline at end of file diff --git a/WebKit/WKWebProcessPlugInRangeHandle.ml b/WebKit/WKWebProcessPlugInRangeHandle.ml index 472da5f6..83b91b4d 100644 --- a/WebKit/WKWebProcessPlugInRangeHandle.ml +++ b/WebKit/WKWebProcessPlugInRangeHandle.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginrangehandle?language=objc}WKWebProcessPlugInRangeHandle} *) +let self = get_class "WKWebProcessPlugInRangeHandle" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let frame self = msg_send ~self ~cmd:(selector "frame") ~typ:(returning id) let text self = msg_send ~self ~cmd:(selector "text") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKWebProcessPlugInRangeHandleClass.ml b/WebKit/WKWebProcessPlugInRangeHandleClass.ml index 04b45eba..1a7a642b 100644 --- a/WebKit/WKWebProcessPlugInRangeHandleClass.ml +++ b/WebKit/WKWebProcessPlugInRangeHandleClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginrangehandle?language=objc}WKWebProcessPlugInRangeHandle} *) -let self = get_class "WKWebProcessPlugInRangeHandle" - let rangeHandleWithJSValue x ~inContext self = msg_send ~self ~cmd:(selector "rangeHandleWithJSValue:inContext:") ~typ:(id @-> id @-> returning id) x inContext \ No newline at end of file diff --git a/WebKit/WKWebProcessPlugInScriptWorld.ml b/WebKit/WKWebProcessPlugInScriptWorld.ml index cdf6a8bf..e38b3e6d 100644 --- a/WebKit/WKWebProcessPlugInScriptWorld.ml +++ b/WebKit/WKWebProcessPlugInScriptWorld.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginscriptworld?language=objc}WKWebProcessPlugInScriptWorld} *) +let self = get_class "WKWebProcessPlugInScriptWorld" + let clearWrappers self = msg_send ~self ~cmd:(selector "clearWrappers") ~typ:(returning void) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let disableOverrideBuiltinsBehavior self = msg_send ~self ~cmd:(selector "disableOverrideBuiltinsBehavior") ~typ:(returning void) diff --git a/WebKit/WKWebProcessPlugInScriptWorldClass.ml b/WebKit/WKWebProcessPlugInScriptWorldClass.ml index 9cc7e504..662dd6df 100644 --- a/WebKit/WKWebProcessPlugInScriptWorldClass.ml +++ b/WebKit/WKWebProcessPlugInScriptWorldClass.ml @@ -4,12 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebprocesspluginscriptworld?language=objc}WKWebProcessPlugInScriptWorld} *) -let self = get_class "WKWebProcessPlugInScriptWorld" - let normalWorld self = msg_send ~self ~cmd:(selector "normalWorld") ~typ:(returning id) let world self = msg_send ~self ~cmd:(selector "world") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKWebView.ml b/WebKit/WKWebView.ml index 0db83487..732a683f 100644 --- a/WebKit/WKWebView.ml +++ b/WebKit/WKWebView.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebview?language=objc}WKWebView} *) +let self = get_class "WKWebView" + let _UIDelegate self = msg_send ~self ~cmd:(selector "UIDelegate") ~typ:(returning id) let _URL self = msg_send ~self ~cmd:(selector "URL") ~typ:(returning id) let acceptsFirstMouse x self = msg_send ~self ~cmd:(selector "acceptsFirstMouse:") ~typ:(id @-> returning bool) x diff --git a/WebKit/WKWebViewClass.ml b/WebKit/WKWebViewClass.ml index c7d79c21..825c3a28 100644 --- a/WebKit/WKWebViewClass.ml +++ b/WebKit/WKWebViewClass.ml @@ -4,12 +4,9 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebview?language=objc}WKWebView} *) -let self = get_class "WKWebView" - let automaticallyNotifiesObserversOfUnderPageBackgroundColor self = msg_send ~self ~cmd:(selector "automaticallyNotifiesObserversOfUnderPageBackgroundColor") ~typ:(returning bool) let handlesURLScheme x self = msg_send ~self ~cmd:(selector "handlesURLScheme:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/WebKit/WKWebViewConfiguration.ml b/WebKit/WKWebViewConfiguration.ml index 02edab6f..adb43323 100644 --- a/WebKit/WKWebViewConfiguration.ml +++ b/WebKit/WKWebViewConfiguration.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebviewconfiguration?language=objc}WKWebViewConfiguration} *) +let self = get_class "WKWebViewConfiguration" + let allowsAirPlayForMediaPlayback self = msg_send ~self ~cmd:(selector "allowsAirPlayForMediaPlayback") ~typ:(returning bool) let applicationNameForUserAgent self = msg_send ~self ~cmd:(selector "applicationNameForUserAgent") ~typ:(returning id) let copyPageConfiguration self = msg_send ~self ~cmd:(selector "copyPageConfiguration") ~typ:(returning id) diff --git a/WebKit/WKWebViewConfigurationClass.ml b/WebKit/WKWebViewConfigurationClass.ml index b0972431..b3d3ba8f 100644 --- a/WebKit/WKWebViewConfigurationClass.ml +++ b/WebKit/WKWebViewConfigurationClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebviewconfiguration?language=objc}WKWebViewConfiguration} *) -let self = get_class "WKWebViewConfiguration" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/WebKit/WKWebpagePreferences.ml b/WebKit/WKWebpagePreferences.ml index 56216173..98fa41ec 100644 --- a/WebKit/WKWebpagePreferences.ml +++ b/WebKit/WKWebpagePreferences.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebpagepreferences?language=objc}WKWebpagePreferences} *) +let self = get_class "WKWebpagePreferences" + let allowsContentJavaScript self = msg_send ~self ~cmd:(selector "allowsContentJavaScript") ~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) diff --git a/WebKit/WKWebpagePreferencesClass.ml b/WebKit/WKWebpagePreferencesClass.ml index 6a511e18..7037bfca 100644 --- a/WebKit/WKWebpagePreferencesClass.ml +++ b/WebKit/WKWebpagePreferencesClass.ml @@ -4,11 +4,8 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebpagepreferences?language=objc}WKWebpagePreferences} *) -let self = get_class "WKWebpagePreferences" - let defaultPreferences self = msg_send ~self ~cmd:(selector "defaultPreferences") ~typ:(returning id) \ No newline at end of file diff --git a/WebKit/WKWebsiteDataRecord.ml b/WebKit/WKWebsiteDataRecord.ml index dbc3ff44..b0ac8af4 100644 --- a/WebKit/WKWebsiteDataRecord.ml +++ b/WebKit/WKWebsiteDataRecord.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebsitedatarecord?language=objc}WKWebsiteDataRecord} *) +let self = get_class "WKWebsiteDataRecord" + let dataTypes self = msg_send ~self ~cmd:(selector "dataTypes") ~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) diff --git a/WebKit/WKWebsiteDataRecordClass.ml b/WebKit/WKWebsiteDataRecordClass.ml deleted file mode 100644 index de779dfd..00000000 --- a/WebKit/WKWebsiteDataRecordClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebsitedatarecord?language=objc}WKWebsiteDataRecord} *) - -let self = get_class "WKWebsiteDataRecord" - diff --git a/WebKit/WKWebsiteDataStore.ml b/WebKit/WKWebsiteDataStore.ml index 45fc28d6..eeb128cd 100644 --- a/WebKit/WKWebsiteDataStore.ml +++ b/WebKit/WKWebsiteDataStore.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebsitedatastore?language=objc}WKWebsiteDataStore} *) +let self = get_class "WKWebsiteDataStore" + 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 fetchDataRecordsOfTypes x ~completionHandler self = msg_send ~self ~cmd:(selector "fetchDataRecordsOfTypes:completionHandler:") ~typ:(id @-> (ptr void) @-> returning void) x completionHandler diff --git a/WebKit/WKWebsiteDataStoreClass.ml b/WebKit/WKWebsiteDataStoreClass.ml index 7f665ef2..90631d7d 100644 --- a/WebKit/WKWebsiteDataStoreClass.ml +++ b/WebKit/WKWebsiteDataStoreClass.ml @@ -4,13 +4,10 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwebsitedatastore?language=objc}WKWebsiteDataStore} *) -let self = get_class "WKWebsiteDataStore" - let allWebsiteDataTypes self = msg_send ~self ~cmd:(selector "allWebsiteDataTypes") ~typ:(returning id) let defaultDataStore self = msg_send ~self ~cmd:(selector "defaultDataStore") ~typ:(returning id) let nonPersistentDataStore self = msg_send ~self ~cmd:(selector "nonPersistentDataStore") ~typ:(returning id) diff --git a/WebKit/WKWindowFeatures.ml b/WebKit/WKWindowFeatures.ml index d9497219..00912257 100644 --- a/WebKit/WKWindowFeatures.ml +++ b/WebKit/WKWindowFeatures.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwindowfeatures?language=objc}WKWindowFeatures} *) +let self = get_class "WKWindowFeatures" + let allowsResizing self = msg_send ~self ~cmd:(selector "allowsResizing") ~typ:(returning id) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let height self = msg_send ~self ~cmd:(selector "height") ~typ:(returning id) diff --git a/WebKit/WKWindowFeaturesClass.ml b/WebKit/WKWindowFeaturesClass.ml deleted file mode 100644 index bf93b3d3..00000000 --- a/WebKit/WKWindowFeaturesClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwindowfeatures?language=objc}WKWindowFeatures} *) - -let self = get_class "WKWindowFeatures" - diff --git a/WebKit/WKWindowVisibilityObserver.ml b/WebKit/WKWindowVisibilityObserver.ml index 40ba3a44..1834cc37 100644 --- a/WebKit/WKWindowVisibilityObserver.ml +++ b/WebKit/WKWindowVisibilityObserver.ml @@ -4,11 +4,12 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics +open Foundation (** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwindowvisibilityobserver?language=objc}WKWindowVisibilityObserver} *) +let self = get_class "WKWindowVisibilityObserver" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let initWithView x ~impl self = msg_send ~self ~cmd:(selector "initWithView:impl:") ~typ:(id @-> (ptr void) @-> returning id) x impl 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 diff --git a/WebKit/WKWindowVisibilityObserverClass.ml b/WebKit/WKWindowVisibilityObserverClass.ml deleted file mode 100644 index d311655c..00000000 --- a/WebKit/WKWindowVisibilityObserverClass.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreGraphics - -(** Apple docs: {{:https://developer.apple.com/documentation/webkit/wkwindowvisibilityobserver?language=objc}WKWindowVisibilityObserver} *) - -let self = get_class "WKWindowVisibilityObserver" - diff --git a/WebKit/WebKit.ml b/WebKit/WebKit.ml new file mode 100644 index 00000000..0335669a --- /dev/null +++ b/WebKit/WebKit.ml @@ -0,0 +1,187 @@ +include WebKit_globals + +module WKAccessibilitySettingsObserver = WKAccessibilitySettingsObserver +module WKAccessibilityWebPageObject = WKAccessibilityWebPageObject +module WKAccessibilityWebPageObjectBase = WKAccessibilityWebPageObjectBase +module WKAnimationDelegate = WKAnimationDelegate +module WKBackForwardList = WKBackForwardList +module WKBackForwardListItem = WKBackForwardListItem +module WKBrowsingContextController = WKBrowsingContextController +module WKBrowsingContextControllerClass = WKBrowsingContextControllerClass +module WKBrowsingContextGroup = WKBrowsingContextGroup +module WKBrowsingContextHandle = WKBrowsingContextHandle +module WKBrowsingContextHandleClass = WKBrowsingContextHandleClass +module WKColorPopoverMac = WKColorPopoverMac +module WKConnection = WKConnection +module WKContactPicker = WKContactPicker +module WKContentRuleList = WKContentRuleList +module WKContentRuleListStore = WKContentRuleListStore +module WKContentRuleListStoreClass = WKContentRuleListStoreClass +module WKContentView = WKContentView +module WKContentWorld = WKContentWorld +module WKContentWorldClass = WKContentWorldClass +module WKCustomProtocol = WKCustomProtocol +module WKCustomProtocolClass = WKCustomProtocolClass +module WKCustomProtocolLoader = WKCustomProtocolLoader +module WKDOMDocument = WKDOMDocument +module WKDOMElement = WKDOMElement +module WKDOMNode = WKDOMNode +module WKDOMPasteMenuDelegate = WKDOMPasteMenuDelegate +module WKDOMRange = WKDOMRange +module WKDOMText = WKDOMText +module WKDOMTextIterator = WKDOMTextIterator +module WKDataListSuggestionTableView = WKDataListSuggestionTableView +module WKDataListSuggestionView = WKDataListSuggestionView +module WKDataListSuggestionWindow = WKDataListSuggestionWindow +module WKDataListSuggestionsController = WKDataListSuggestionsController +module WKDateTimePicker = WKDateTimePicker +module WKDateTimePickerWindow = WKDateTimePickerWindow +module WKDownload = WKDownload +module WKDownloadProgress = WKDownloadProgress +module WKEditCommand = WKEditCommand +module WKEditorUndoTarget = WKEditorUndoTarget +module WKEmptyPresenterHighlightDelegate = WKEmptyPresenterHighlightDelegate +module WKFindConfiguration = WKFindConfiguration +module WKFindResult = WKFindResult +module WKFlippedView = WKFlippedView +module WKFrameInfo = WKFrameInfo +module WKFullKeyboardAccessWatcher = WKFullKeyboardAccessWatcher +module WKFullKeyboardAccessWatcherClass = WKFullKeyboardAccessWatcherClass +module WKFullScreenWindowController = WKFullScreenWindowController +module WKGroupActivitiesCoordinatorDelegate = WKGroupActivitiesCoordinatorDelegate +module WKHTTPCookieStore = WKHTTPCookieStore +module WKImmediateActionController = WKImmediateActionController +module WKInspectorResourceURLSchemeHandler = WKInspectorResourceURLSchemeHandler +module WKInspectorViewController = WKInspectorViewController +module WKInspectorViewControllerClass = WKInspectorViewControllerClass +module WKInspectorWKWebView = WKInspectorWKWebView +module WKLayerHostView = WKLayerHostView +module WKMediaSessionCoordinatorHelper = WKMediaSessionCoordinatorHelper +module WKMenuDelegate = WKMenuDelegate +module WKMenuTarget = WKMenuTarget +module WKMenuTargetClass = WKMenuTargetClass +module WKMockNFTag = WKMockNFTag +module WKModalContainerClassifierBatch = WKModalContainerClassifierBatch +module WKModalContainerClassifierInput = WKModalContainerClassifierInput +module WKNFReaderSessionDelegate = WKNFReaderSessionDelegate +module WKNSArray = WKNSArray +module WKNSData = WKNSData +module WKNSDictionary = WKNSDictionary +module WKNSNumber = WKNSNumber +module WKNSString = WKNSString +module WKNSURLAuthenticationChallengeSender = WKNSURLAuthenticationChallengeSender +module WKNSURLRequest = WKNSURLRequest +module WKNavigation = WKNavigation +module WKNavigationAction = WKNavigationAction +module WKNavigationData = WKNavigationData +module WKNavigationResponse = WKNavigationResponse +module WKNetworkSessionDelegate = WKNetworkSessionDelegate +module WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON = WKNetworkSessionDelegateAllowingOnlyNonRedirectedJSON +module WKObject = WKObject +module WKObservablePageState = WKObservablePageState +module WKOpenPanelParameters = WKOpenPanelParameters +module WKPDFConfiguration = WKPDFConfiguration +module WKPDFHUDView = WKPDFHUDView +module WKPDFLayerControllerDelegate = WKPDFLayerControllerDelegate +module WKPDFMenuTarget = WKPDFMenuTarget +module WKPDFPluginAccessibilityObject = WKPDFPluginAccessibilityObject +module WKPDFPluginScrollbarLayer = WKPDFPluginScrollbarLayer +module WKPaymentAuthorizationDelegate = WKPaymentAuthorizationDelegate +module WKPaymentAuthorizationViewControllerDelegate = WKPaymentAuthorizationViewControllerDelegate +module WKPopoverColorWell = WKPopoverColorWell +module WKPreferenceObserver = WKPreferenceObserver +module WKPreferenceObserverClass = WKPreferenceObserverClass +module WKPreferences = WKPreferences +module WKPreferencesClass = WKPreferencesClass +module WKPrintingView = WKPrintingView +module WKProcessGroup = WKProcessGroup +module WKProcessPool = WKProcessPool +module WKProcessPoolClass = WKProcessPoolClass +module WKPromisedAttachmentContext = WKPromisedAttachmentContext +module WKQLThumbnailLoadOperation = WKQLThumbnailLoadOperation +module WKQLThumbnailQueueManager = WKQLThumbnailQueueManager +module WKQLThumbnailQueueManagerClass = WKQLThumbnailQueueManagerClass +module WKQuickLookPreviewController = WKQuickLookPreviewController +module WKReloadFrameErrorRecoveryAttempter = WKReloadFrameErrorRecoveryAttempter +module WKReloadFrameErrorRecoveryAttempterClass = WKReloadFrameErrorRecoveryAttempterClass +module WKRemoteObject = WKRemoteObject +module WKRemoteObjectDecoder = WKRemoteObjectDecoder +module WKRemoteObjectEncoder = WKRemoteObjectEncoder +module WKRemoteWebInspectorUIProxyObjCAdapter = WKRemoteWebInspectorUIProxyObjCAdapter +module WKResponderChainSink = WKResponderChainSink +module WKRevealItemPresenter = WKRevealItemPresenter +module WKSOAuthorizationDelegate = WKSOAuthorizationDelegate +module WKSOSecretDelegate = WKSOSecretDelegate +module WKSafeBrowsingBox = WKSafeBrowsingBox +module WKSafeBrowsingExclamationPoint = WKSafeBrowsingExclamationPoint +module WKSafeBrowsingTextView = WKSafeBrowsingTextView +module WKSafeBrowsingWarning = WKSafeBrowsingWarning +module WKScriptMessage = WKScriptMessage +module WKScrollView = WKScrollView +module WKScrollViewClass = WKScrollViewClass +module WKScrollbarPartAnimation = WKScrollbarPartAnimation +module WKScrollerImpDelegate = WKScrollerImpDelegate +module WKScrollerImpPairDelegate = WKScrollerImpPairDelegate +module WKSecureCodingArchivingDelegate = WKSecureCodingArchivingDelegate +module WKSecureCodingCGColorWrapper = WKSecureCodingCGColorWrapper +module WKSecureCodingCGColorWrapperClass = WKSecureCodingCGColorWrapperClass +module WKSecureCodingURLWrapper = WKSecureCodingURLWrapper +module WKSecureCodingURLWrapperClass = WKSecureCodingURLWrapperClass +module WKSecurityOrigin = WKSecurityOrigin +module WKSelectionHandlerWrapper = WKSelectionHandlerWrapper +module WKShareSheet = WKShareSheet +module WKShareSheetClass = WKShareSheetClass +module WKSharingServicePickerDelegate = WKSharingServicePickerDelegate +module WKSharingServicePickerDelegateClass = WKSharingServicePickerDelegateClass +module WKSnapshotConfiguration = WKSnapshotConfiguration +module WKSwipeCancellationTracker = WKSwipeCancellationTracker +module WKTextFinderClient = WKTextFinderClient +module WKTextFinderMatch = WKTextFinderMatch +module WKTextInputPanel = WKTextInputPanel +module WKTextInputWindowController = WKTextInputWindowController +module WKTextInputWindowControllerClass = WKTextInputWindowControllerClass +module WKTextListTouchBarViewController = WKTextListTouchBarViewController +module WKTextTouchBarItemController = WKTextTouchBarItemController +module WKTypeRefWrapper = WKTypeRefWrapper +module WKURLSchemeTaskImpl = WKURLSchemeTaskImpl +module WKUserContentController = WKUserContentController +module WKUserContentControllerClass = WKUserContentControllerClass +module WKUserDataWrapper = WKUserDataWrapper +module WKUserDefaults = WKUserDefaults +module WKUserScript = WKUserScript +module WKVideoLayerRemote = WKVideoLayerRemote +module WKView = WKView +module WKViewClass = WKViewClass +module WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy = WKViewDynamicSizeComputedFromMinimumDocumentSizeLayoutStrategy +module WKViewDynamicSizeComputedFromViewScaleLayoutStrategy = WKViewDynamicSizeComputedFromViewScaleLayoutStrategy +module WKViewFixedSizeLayoutStrategy = WKViewFixedSizeLayoutStrategy +module WKViewLayoutStrategy = WKViewLayoutStrategy +module WKViewLayoutStrategyClass = WKViewLayoutStrategyClass +module WKViewViewSizeLayoutStrategy = WKViewViewSizeLayoutStrategy +module WKWebInspectorPreferenceObserver = WKWebInspectorPreferenceObserver +module WKWebInspectorPreferenceObserverClass = WKWebInspectorPreferenceObserverClass +module WKWebInspectorUIProxyObjCAdapter = WKWebInspectorUIProxyObjCAdapter +module WKWebProcessBundleParameters = WKWebProcessBundleParameters +module WKWebProcessPlugInBrowserContextController = WKWebProcessPlugInBrowserContextController +module WKWebProcessPlugInBrowserContextControllerClass = WKWebProcessPlugInBrowserContextControllerClass +module WKWebProcessPlugInController = WKWebProcessPlugInController +module WKWebProcessPlugInFrame = WKWebProcessPlugInFrame +module WKWebProcessPlugInFrameClass = WKWebProcessPlugInFrameClass +module WKWebProcessPlugInHitTestResult = WKWebProcessPlugInHitTestResult +module WKWebProcessPlugInNodeHandle = WKWebProcessPlugInNodeHandle +module WKWebProcessPlugInNodeHandleClass = WKWebProcessPlugInNodeHandleClass +module WKWebProcessPlugInRangeHandle = WKWebProcessPlugInRangeHandle +module WKWebProcessPlugInRangeHandleClass = WKWebProcessPlugInRangeHandleClass +module WKWebProcessPlugInScriptWorld = WKWebProcessPlugInScriptWorld +module WKWebProcessPlugInScriptWorldClass = WKWebProcessPlugInScriptWorldClass +module WKWebView = WKWebView +module WKWebViewClass = WKWebViewClass +module WKWebViewConfiguration = WKWebViewConfiguration +module WKWebViewConfigurationClass = WKWebViewConfigurationClass +module WKWebpagePreferences = WKWebpagePreferences +module WKWebpagePreferencesClass = WKWebpagePreferencesClass +module WKWebsiteDataRecord = WKWebsiteDataRecord +module WKWebsiteDataStore = WKWebsiteDataStore +module WKWebsiteDataStoreClass = WKWebsiteDataStoreClass +module WKWindowFeatures = WKWindowFeatures +module WKWindowVisibilityObserver = WKWindowVisibilityObserver diff --git a/WebKit/dune b/WebKit/dune index a0ea6f26..59974f20 100644 --- a/WebKit/dune +++ b/WebKit/dune @@ -3,9 +3,6 @@ (public_name camlkit-base.WebKit) (enabled_if (= %{system} macosx)) ; (flags :standard -ccopt "-framework WebKit") - (libraries - camlkit-base.Foundation - camlkit-base.CoreFoundation - camlkit-gui.CoreGraphics)) + (libraries camlkit-base.runtime camlkit-base.Foundation)) (documentation (package camlkit-base)) \ No newline at end of file