Re-generate CoreAnimation bindings.

dboris · Nov 14, 2024 · 613a448 · 613a448
1 parent c144634
commit 613a448
Show file tree

Hide file tree

Showing 179 changed files with 261 additions and 220 deletions.
diff --git a/CoreAnimation/CAAnimation.ml b/CoreAnimation/CAAnimation.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 
@@ -31,14 +31,15 @@ let fillMode self = msg_send ~self ~cmd:(selector "fillMode") ~typ:(returning id
 let frameInterval self = msg_send ~self ~cmd:(selector "frameInterval") ~typ:(returning double)
 let highFrameRateReason self = msg_send ~self ~cmd:(selector "highFrameRateReason") ~typ:(returning uint)
 let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
+let isCompleteForTime x self = msg_send ~self ~cmd:(selector "isCompleteForTime:") ~typ:(double @-> returning bool) x
 let isEnabled self = msg_send ~self ~cmd:(selector "isEnabled") ~typ:(returning bool)
 let isRemovedOnCompletion self = msg_send ~self ~cmd:(selector "isRemovedOnCompletion") ~typ:(returning bool)
 let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x
 let preferredFrameRateRange self = msg_send_stret ~self ~cmd:(selector "preferredFrameRateRange") ~typ:(returning CAFrameRateRange.t) ~return_type:CAFrameRateRange.t
 let preferredFrameRateRangeMaximum self = msg_send ~self ~cmd:(selector "preferredFrameRateRangeMaximum") ~typ:(returning float)
 let preferredFrameRateRangeMinimum self = msg_send ~self ~cmd:(selector "preferredFrameRateRangeMinimum") ~typ:(returning float)
 let preferredFrameRateRangePreferred self = msg_send ~self ~cmd:(selector "preferredFrameRateRangePreferred") ~typ:(returning float)
-let preferredFramesPerSecond self = msg_send ~self ~cmd:(selector "preferredFramesPerSecond") ~typ:(returning llong)
+let preferredFramesPerSecond self = msg_send ~self ~cmd:(selector "preferredFramesPerSecond") ~typ:(returning llong) |> LLong.to_int
 let removedOnCompletion self = msg_send ~self ~cmd:(selector "removedOnCompletion") ~typ:(returning bool)
 let repeatCount self = msg_send ~self ~cmd:(selector "repeatCount") ~typ:(returning float)
 let repeatDuration self = msg_send ~self ~cmd:(selector "repeatDuration") ~typ:(returning double)

diff --git a/CoreAnimation/CAAnimationClass.ml b/CoreAnimation/CAAnimationClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAAnimationGroup.ml b/CoreAnimation/CAAnimationGroup.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CABasicAnimation.ml b/CoreAnimation/CABasicAnimation.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAConstraint.ml b/CoreAnimation/CAConstraint.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAConstraintClass.ml b/CoreAnimation/CAConstraintClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAConstraintLayoutManager.ml b/CoreAnimation/CAConstraintLayoutManager.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAConstraintLayoutManagerClass.ml b/CoreAnimation/CAConstraintLayoutManagerClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CADisplayLink.ml b/CoreAnimation/CADisplayLink.ml
@@ -1,31 +1,32 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 
 (** Apple docs: {{:https://developer.apple.com/documentation/coreanimation/cadisplaylink?language=objc}CADisplayLink} *)
 
 let self = get_class "CADisplayLink"
 
-let actualFramesPerSecond self = msg_send ~self ~cmd:(selector "actualFramesPerSecond") ~typ:(returning llong)
+let active self = msg_send ~self ~cmd:(selector "active") ~typ:(returning bool)
+let actualFramesPerSecond self = msg_send ~self ~cmd:(selector "actualFramesPerSecond") ~typ:(returning llong) |> LLong.to_int
 let addToRunLoop x ~forMode self = msg_send ~self ~cmd:(selector "addToRunLoop:forMode:") ~typ:(id @-> id @-> returning void) x forMode
 let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void)
 let display self = msg_send ~self ~cmd:(selector "display") ~typ:(returning id)
 let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning double)
-let frameInterval self = msg_send ~self ~cmd:(selector "frameInterval") ~typ:(returning llong)
+let frameInterval self = msg_send ~self ~cmd:(selector "frameInterval") ~typ:(returning llong) |> LLong.to_int
 let heartbeatRate self = msg_send ~self ~cmd:(selector "heartbeatRate") ~typ:(returning double)
 let highFrameRateReason self = msg_send ~self ~cmd:(selector "highFrameRateReason") ~typ:(returning uint)
 let invalidate self = msg_send ~self ~cmd:(selector "invalidate") ~typ:(returning void)
 let isPaused self = msg_send ~self ~cmd:(selector "isPaused") ~typ:(returning bool)
 let maximumRefreshRate self = msg_send ~self ~cmd:(selector "maximumRefreshRate") ~typ:(returning double)
-let minimumFrameDuration self = msg_send ~self ~cmd:(selector "minimumFrameDuration") ~typ:(returning llong)
+let minimumFrameDuration self = msg_send ~self ~cmd:(selector "minimumFrameDuration") ~typ:(returning llong) |> LLong.to_int
 let preferredFrameRateRange self = msg_send_stret ~self ~cmd:(selector "preferredFrameRateRange") ~typ:(returning CAFrameRateRange.t) ~return_type:CAFrameRateRange.t
-let preferredFramesPerSecond self = msg_send ~self ~cmd:(selector "preferredFramesPerSecond") ~typ:(returning llong)
-let priority self = msg_send ~self ~cmd:(selector "priority") ~typ:(returning llong)
+let preferredFramesPerSecond self = msg_send ~self ~cmd:(selector "preferredFramesPerSecond") ~typ:(returning llong) |> LLong.to_int
+let priority self = msg_send ~self ~cmd:(selector "priority") ~typ:(returning llong) |> LLong.to_int
 let removeFromRunLoop x ~forMode self = msg_send ~self ~cmd:(selector "removeFromRunLoop:forMode:") ~typ:(id @-> id @-> returning void) x forMode
 let setFrameInterval x self = msg_send ~self ~cmd:(selector "setFrameInterval:") ~typ:(llong @-> returning void) (LLong.of_int x)
 let setHighFrameRateReason x self = msg_send ~self ~cmd:(selector "setHighFrameRateReason:") ~typ:(uint @-> returning void) x
@@ -34,9 +35,7 @@ let setPaused x self = msg_send ~self ~cmd:(selector "setPaused:") ~typ:(bool @-
 let setPreferredFrameRateRange x self = msg_send ~self ~cmd:(selector "setPreferredFrameRateRange:") ~typ:(CAFrameRateRange.t @-> returning void) x
 let setPreferredFramesPerSecond x self = msg_send ~self ~cmd:(selector "setPreferredFramesPerSecond:") ~typ:(llong @-> returning void) (LLong.of_int x)
 let setPriority x self = msg_send ~self ~cmd:(selector "setPriority:") ~typ:(llong @-> returning void) (LLong.of_int x)
-let setTimingOffset x self = msg_send ~self ~cmd:(selector "setTimingOffset:") ~typ:(double @-> returning void) x
 let setUserInfo x self = msg_send ~self ~cmd:(selector "setUserInfo:") ~typ:(id @-> returning void) x
 let targetTimestamp self = msg_send ~self ~cmd:(selector "targetTimestamp") ~typ:(returning double)
 let timestamp self = msg_send ~self ~cmd:(selector "timestamp") ~typ:(returning double)
-let timingOffset self = msg_send ~self ~cmd:(selector "timingOffset") ~typ:(returning double)
 let userInfo self = msg_send ~self ~cmd:(selector "userInfo") ~typ:(returning id)
diff --git a/CoreAnimation/CADisplayLinkClass.ml b/CoreAnimation/CADisplayLinkClass.ml
@@ -1,18 +1,21 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 
 (** Apple docs: {{:https://developer.apple.com/documentation/coreanimation/cadisplaylink?language=objc}CADisplayLink} *)
 
+let dispatchDeferredDisplayLink x self = msg_send ~self ~cmd:(selector "dispatchDeferredDisplayLink:") ~typ:(ullong @-> returning void) (ULLong.of_int x)
 let dispatchDeferredDisplayLinks self = msg_send ~self ~cmd:(selector "dispatchDeferredDisplayLinks") ~typ:(returning void)
+let dispatchDeferredDisplayLinksWithDisplayId x self = msg_send ~self ~cmd:(selector "dispatchDeferredDisplayLinksWithDisplayId:") ~typ:(uint @-> returning void) x
 let displayLinkWithDisplay x ~target ~selector_ self = msg_send ~self ~cmd:(selector "displayLinkWithDisplay:target:selector:") ~typ:(id @-> id @-> _SEL @-> returning id) x target selector_
 let displayLinkWithTarget x ~selector_ self = msg_send ~self ~cmd:(selector "displayLinkWithTarget:selector:") ~typ:(id @-> _SEL @-> returning id) x selector_
 let expectedWakeupBeforeCommitDeadline x self = msg_send ~self ~cmd:(selector "expectedWakeupBeforeCommitDeadline:") ~typ:(double @-> returning double) x
+let notifyDisplayChange x self = msg_send ~self ~cmd:(selector "notifyDisplayChange:") ~typ:(ullong @-> returning void) (ULLong.of_int x)
 let setWillFireHandler x self = msg_send ~self ~cmd:(selector "setWillFireHandler:") ~typ:((ptr void) @-> returning void) x
 let supportsExpectedWakeupBeforeCommitDeadline self = msg_send ~self ~cmd:(selector "supportsExpectedWakeupBeforeCommitDeadline") ~typ:(returning bool)
-let willFireInfoVersion self = msg_send ~self ~cmd:(selector "willFireInfoVersion") ~typ:(returning llong)
+let willFireInfoVersion self = msg_send ~self ~cmd:(selector "willFireInfoVersion") ~typ:(returning llong) |> LLong.to_int
diff --git a/CoreAnimation/CAEDRMetadata.ml b/CoreAnimation/CAEDRMetadata.ml
@@ -1,19 +1,24 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 
 (** Apple docs: {{:https://developer.apple.com/documentation/coreanimation/caedrmetadata?language=objc}CAEDRMetadata} *)
 
 let self = get_class "CAEDRMetadata"
 
+let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x
 let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void)
 let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id)
+let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x
 let initWithBT2100HLG self = msg_send ~self ~cmd:(selector "initWithBT2100HLG") ~typ:(returning id)
+let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
 let initWithMasteringDisplayMinNits x ~maxNits ~opticalOutputScale self = msg_send ~self ~cmd:(selector "initWithMasteringDisplayMinNits:maxNits:opticalOutputScale:") ~typ:(float @-> float @-> float @-> returning id) x maxNits opticalOutputScale
+let initWithSEIAmbientViewingEnvironment x self = msg_send ~self ~cmd:(selector "initWithSEIAmbientViewingEnvironment:") ~typ:(id @-> returning id) x
 let initWithSEIMasteringDisplayData x ~contentLightLevelData self = msg_send ~self ~cmd:(selector "initWithSEIMasteringDisplayData:contentLightLevelData:") ~typ:(id @-> id @-> returning id) x contentLightLevelData
-let initWithSEIMasteringDisplayData' x ~contentLightLevelData ~opticalOutputScale self = msg_send ~self ~cmd:(selector "initWithSEIMasteringDisplayData:contentLightLevelData:opticalOutputScale:") ~typ:(id @-> id @-> float @-> returning id) x contentLightLevelData opticalOutputScale
+let initWithSEIMasteringDisplayData' x ~contentLightLevelData ~opticalOutputScale self = msg_send ~self ~cmd:(selector "initWithSEIMasteringDisplayData:contentLightLevelData:opticalOutputScale:") ~typ:(id @-> id @-> float @-> returning id) x contentLightLevelData opticalOutputScale
+let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x
diff --git a/CoreAnimation/CAEDRMetadataClass.ml b/CoreAnimation/CAEDRMetadataClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 
@@ -12,4 +12,7 @@ open CoreGraphics
 let _HDR10MetadataWithDisplayInfo x ~contentInfo ~opticalOutputScale self = msg_send ~self ~cmd:(selector "HDR10MetadataWithDisplayInfo:contentInfo:opticalOutputScale:") ~typ:(id @-> id @-> float @-> returning id) x contentInfo opticalOutputScale
 let _HDR10MetadataWithMinLuminance x ~maxLuminance ~opticalOutputScale self = msg_send ~self ~cmd:(selector "HDR10MetadataWithMinLuminance:maxLuminance:opticalOutputScale:") ~typ:(float @-> float @-> float @-> returning id) x maxLuminance opticalOutputScale
 let _HLGMetadata self = msg_send ~self ~cmd:(selector "HLGMetadata") ~typ:(returning id)
-let setMetadata x ~onSurface self = msg_send ~self ~cmd:(selector "setMetadata:onSurface:") ~typ:(id @-> (ptr IOSurface.t) @-> returning void) x onSurface
+let _HLGMetadataWithAmbientViewingEnvironment x self = msg_send ~self ~cmd:(selector "HLGMetadataWithAmbientViewingEnvironment:") ~typ:(id @-> returning id) x
+let isAvailable self = msg_send ~self ~cmd:(selector "isAvailable") ~typ:(returning bool)
+let setMetadata x ~onSurface self = msg_send ~self ~cmd:(selector "setMetadata:onSurface:") ~typ:(id @-> (ptr IOSurface.t) @-> returning void) x onSurface
+let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool)
diff --git a/CoreAnimation/CAEmitterCell.ml b/CoreAnimation/CAEmitterCell.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAEmitterCellClass.ml b/CoreAnimation/CAEmitterCellClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAEmitterLayer.ml b/CoreAnimation/CAEmitterLayer.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAEmitterLayerClass.ml b/CoreAnimation/CAEmitterLayerClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAFrameRateRange.ml b/CoreAnimation/CAFrameRateRange.ml
@@ -1,8 +1,11 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
+open CoreGraphics
+
 let t : [`CAFrameRateRange] structure typ = structure "CAFrameRateRange"
 (** Apple docs: {{:https://developer.apple.com/documentation/coreanimation/caframeraterange?language=objc}CAFrameRateRange} *)
 

diff --git a/CoreAnimation/CAGradientLayer.ml b/CoreAnimation/CAGradientLayer.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 
@@ -12,17 +12,23 @@ open CoreGraphics
 let self = get_class "CAGradientLayer"
 
 let colorMap self = msg_send ~self ~cmd:(selector "colorMap") ~typ:(returning id)
+let colorSpace self = msg_send ~self ~cmd:(selector "colorSpace") ~typ:(returning (ptr CGColorSpace.t))
 let colors self = msg_send ~self ~cmd:(selector "colors") ~typ:(returning id)
 let didChangeValueForKey x self = msg_send ~self ~cmd:(selector "didChangeValueForKey:") ~typ:(id @-> returning void) x
 let endPoint self = msg_send_stret ~self ~cmd:(selector "endPoint") ~typ:(returning CGPoint.t) ~return_type:CGPoint.t
 let implicitAnimationForKeyPath x self = msg_send ~self ~cmd:(selector "implicitAnimationForKeyPath:") ~typ:(id @-> returning id) x
 let interpolations self = msg_send ~self ~cmd:(selector "interpolations") ~typ:(returning id)
 let locations self = msg_send ~self ~cmd:(selector "locations") ~typ:(returning id)
+let noiseScale self = msg_send ~self ~cmd:(selector "noiseScale") ~typ:(returning double)
+let premultiplied self = msg_send ~self ~cmd:(selector "premultiplied") ~typ:(returning bool)
 let setColorMap x self = msg_send ~self ~cmd:(selector "setColorMap:") ~typ:(id @-> returning void) x
+let setColorSpace x self = msg_send ~self ~cmd:(selector "setColorSpace:") ~typ:((ptr CGColorSpace.t) @-> returning void) x
 let setColors x self = msg_send ~self ~cmd:(selector "setColors:") ~typ:(id @-> returning void) x
 let setEndPoint x self = msg_send ~self ~cmd:(selector "setEndPoint:") ~typ:(CGPoint.t @-> returning void) x
 let setInterpolations x self = msg_send ~self ~cmd:(selector "setInterpolations:") ~typ:(id @-> returning void) x
 let setLocations x self = msg_send ~self ~cmd:(selector "setLocations:") ~typ:(id @-> returning void) x
+let setNoiseScale x self = msg_send ~self ~cmd:(selector "setNoiseScale:") ~typ:(double @-> returning void) x
+let setPremultiplied x self = msg_send ~self ~cmd:(selector "setPremultiplied:") ~typ:(bool @-> returning void) x
 let setStartPoint x self = msg_send ~self ~cmd:(selector "setStartPoint:") ~typ:(CGPoint.t @-> returning void) x
 let setType x self = msg_send ~self ~cmd:(selector "setType:") ~typ:(id @-> returning void) x
 let startPoint self = msg_send_stret ~self ~cmd:(selector "startPoint") ~typ:(returning CGPoint.t) ~return_type:CGPoint.t

diff --git a/CoreAnimation/CAGradientLayerClass.ml b/CoreAnimation/CAGradientLayerClass.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics
 

diff --git a/CoreAnimation/CAKeyframeAnimation.ml b/CoreAnimation/CAKeyframeAnimation.ml
@@ -1,9 +1,9 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
 open CoreFoundation
 open CoreGraphics