Re-generate WebKit bindings.

dboris · Sep 3, 2024 · 158dd36 · 158dd36
1 parent be2c890
commit 158dd36
Show file tree

Hide file tree

Showing 308 changed files with 678 additions and 2,011 deletions.
diff --git 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
diff --git a/WebKit/WKAccessibilitySettingsObserverClass.ml b/WebKit/WKAccessibilitySettingsObserverClass.ml
diff --git 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
@@ -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
diff --git a/WebKit/WKAccessibilityWebPageObjectClass.ml b/WebKit/WKAccessibilityWebPageObjectClass.ml
diff --git 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
diff --git 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
diff --git 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
diff --git 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
@@ -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
diff --git 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
diff --git 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
@@ -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)
diff --git 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
diff --git 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
diff --git 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
diff --git 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)
diff --git a/WebKit/WKContentRuleListClass.ml b/WebKit/WKContentRuleListClass.ml
diff --git 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)