Add setters to some CG structs

Author: dboris

CoreFoundation/CGAffineTransform.ml

@@ -1,39 +1,48 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-let t : [`CGAffineTransform] structure typ = structure "CGAffineTransform"
-(** Apple docs: {{:https://developer.apple.com/documentation/coregraphics/cgaffinetransform?language=objc}CGAffineTransform} *)
+type t = [`CGAffineTransform] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgaffinetransform?language=objc}CGAffineTransform} *)
 
-let a = field t "a" double
-let b = field t "b" double
-let c = field t "c" double
-let d = field t "d" double
-let tx = field t "tx" double
-let ty = field t "ty" double
+let t : t typ = structure "CGAffineTransform"
+let a_field = field t "a" double
+let b_field = field t "b" double
+let c_field = field t "c" double
+let d_field = field t "d" double
+let tx_field = field t "tx" double
+let ty_field = field t "ty" double
 
 let () = seal t
 
 let init
-    ~a:a_v
-    ~b:b_v
-    ~c:c_v
-    ~d:d_v
-    ~tx:tx_v
-    ~ty:ty_v
-    =
+    ~a
+    ~b
+    ~c
+    ~d
+    ~tx
+    ~ty
+  =
   let t = make t in
-  setf t a a_v;
-  setf t b b_v;
-  setf t c c_v;
-  setf t d d_v;
-  setf t tx tx_v;
-  setf t ty ty_v;
+  setf t a_field a;
+  setf t b_field b;
+  setf t c_field c;
+  setf t d_field d;
+  setf t tx_field tx;
+  setf t ty_field ty;
   t
-let a t = getf t a
-let b t = getf t b
-let c t = getf t c
-let d t = getf t d
-let tx t = getf t tx
-let ty t = getf t ty
+
+let a t = getf t a_field
+let b t = getf t b_field
+let c t = getf t c_field
+let d t = getf t d_field
+let tx t = getf t tx_field
+let ty t = getf t ty_field
+let setA t = setf t a_field
+let setB t = setf t b_field
+let setC t = setf t c_field
+let setD t = setf t d_field
+let setTx t = setf t tx_field
+let setTy t = setf t ty_field

CoreFoundation/CGAffineTransformComponents.ml

@@ -0,0 +1,38 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+type t = [`CGAffineTransformComponents] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgaffinetransformcomponents?language=objc}CGAffineTransformComponents} *)
+
+let t : t typ = structure "CGAffineTransformComponents"
+let scale_field = field t "scale" CGSize.t
+let horizontalShear_field = field t "horizontalShear" double
+let rotation_field = field t "rotation" double
+let translation_field = field t "translation" CGVector.t
+
+let () = seal t
+
+let init
+    ~scale
+    ~horizontalShear
+    ~rotation
+    ~translation
+  =
+  let t = make t in
+  setf t scale_field scale;
+  setf t horizontalShear_field horizontalShear;
+  setf t rotation_field rotation;
+  setf t translation_field translation;
+  t
+
+let scale t = getf t scale_field
+let horizontalShear t = getf t horizontalShear_field
+let rotation t = getf t rotation_field
+let translation t = getf t translation_field
+let setScale t = setf t scale_field
+let setHorizontalShear t = setf t horizontalShear_field
+let setRotation t = setf t rotation_field
+let setTranslation t = setf t translation_field

CoreFoundation/CGPoint.ml

@@ -1,23 +1,28 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-let t : [`CGPoint] structure typ = structure "CGPoint"
-(** Apple docs: {{:https://developer.apple.com/documentation/coregraphics/cgpoint?language=objc}CGPoint} *)
+type t = [`CGPoint] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgpoint?language=objc}CGPoint} *)
 
-let x = field t "x" double
-let y = field t "y" double
+let t : t typ = structure "CGPoint"
+let x_field = field t "x" double
+let y_field = field t "y" double
 
 let () = seal t
 
 let init
-    ~x:x_v
-    ~y:y_v
-    =
+    ~x
+    ~y
+  =
   let t = make t in
-  setf t x x_v;
-  setf t y y_v;
+  setf t x_field x;
+  setf t y_field y;
   t
-let x t = getf t x
-let y t = getf t y
+
+let x t = getf t x_field
+let y t = getf t y_field
+let setX t = setf t x_field
+let setY t = setf t y_field

CoreFoundation/CGRect.ml

@@ -3,28 +3,31 @@
 open Runtime
 open Objc
 
-let t : [`CGRect] structure typ = structure "CGRect"
-(** Apple docs: {{:https://developer.apple.com/documentation/coregraphics/cgrect?language=objc}CGRect} *)
+type t = [`CGRect] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgrect?language=objc}CGRect} *)
 
-let origin = field t "origin" CGPoint.t
-let size = field t "size" CGSize.t
+let t : t typ = structure "CGRect"
+let origin_field = field t "origin" CGPoint.t
+let size_field = field t "size" CGSize.t
 
 let () = seal t
 
 let init
-    ~origin:origin_v
-    ~size:size_v
-    =
+    ~origin
+    ~size
+  =
   let t = make t in
-  setf t origin origin_v;
-  setf t size size_v;
+  setf t origin_field origin;
+  setf t size_field size;
   t
 
+let origin t = getf t origin_field
+let size t = getf t size_field
+let setOrigin t = setf t origin_field
+let setSize t = setf t size_field
+
 let make ~x ~y ~width ~height =
   let r = make t in
-  setf r origin (CGPoint.init ~x ~y);
-  setf r size (CGSize.init ~width ~height);
+  setOrigin r (CGPoint.init ~x ~y);
+  setSize r (CGSize.init ~width ~height);
   r
-
-let origin t = getf t origin
-let size t = getf t size

CoreFoundation/CGSize.ml

@@ -1,23 +1,28 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-let t : [`CGSize] structure typ = structure "CGSize"
-(** Apple docs: {{:https://developer.apple.com/documentation/coregraphics/cgsize?language=objc}CGSize} *)
+type t = [`CGSize] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgsize?language=objc}CGSize} *)
 
-let width = field t "width" double
-let height = field t "height" double
+let t : t typ = structure "CGSize"
+let width_field = field t "width" double
+let height_field = field t "height" double
 
 let () = seal t
 
 let init
-    ~width:width_v
-    ~height:height_v
-    =
+    ~width
+    ~height
+  =
   let t = make t in
-  setf t width width_v;
-  setf t height height_v;
+  setf t width_field width;
+  setf t height_field height;
   t
-let width t = getf t width
-let height t = getf t height
+
+let width t = getf t width_field
+let height t = getf t height_field
+let setWidth t = setf t width_field
+let setHeight t = setf t height_field

CoreFoundation/CGVector.ml

@@ -1,23 +1,28 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-let t : [`CGVector] structure typ = structure "CGVector"
-(** Apple docs: {{:https://developer.apple.com/documentation/coregraphics/cgvector?language=objc}CGVector} *)
+type t = [`CGVector] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgvector?language=objc}CGVector} *)
 
-let dx = field t "dx" double
-let dy = field t "dy" double
+let t : t typ = structure "CGVector"
+let dx_field = field t "dx" double
+let dy_field = field t "dy" double
 
 let () = seal t
 
 let init
-    ~dx:dx_v
-    ~dy:dy_v
-    =
+    ~dx
+    ~dy
+  =
   let t = make t in
-  setf t dx dx_v;
-  setf t dy dy_v;
+  setf t dx_field dx;
+  setf t dy_field dy;
   t
-let dx t = getf t dx
-let dy t = getf t dy
+
+let dx t = getf t dx_field
+let dy t = getf t dy_field
+let setDx t = setf t dx_field
+let setDy t = setf t dy_field

CoreGraphics/CGAffineTransform.ml

@@ -1,42 +1,48 @@
 (* auto-generated, do not modify *)
 
+[@@@ocaml.warning "-33"]
 open Runtime
 open Objc
 
-[@@@ocaml.warning "-33"]
-open CoreFoundation
-
-let t : [`CGAffineTransform] structure typ = structure "CGAffineTransform"
-(** Apple docs: {{:https://developer.apple.com/documentation/coregraphics/cgaffinetransform?language=objc}CGAffineTransform} *)
+type t = [`CGAffineTransform] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgaffinetransform?language=objc}CGAffineTransform} *)
 
-let a = field t "a" double
-let b = field t "b" double
-let c = field t "c" double
-let d = field t "d" double
-let tx = field t "tx" double
-let ty = field t "ty" double
+let t : t typ = structure "CGAffineTransform"
+let a_field = field t "a" double
+let b_field = field t "b" double
+let c_field = field t "c" double
+let d_field = field t "d" double
+let tx_field = field t "tx" double
+let ty_field = field t "ty" double
 
 let () = seal t
 
 let init
-    ~a:a_v
-    ~b:b_v
-    ~c:c_v
-    ~d:d_v
-    ~tx:tx_v
-    ~ty:ty_v
-    =
+    ~a
+    ~b
+    ~c
+    ~d
+    ~tx
+    ~ty
+  =
   let t = make t in
-  setf t a a_v;
-  setf t b b_v;
-  setf t c c_v;
-  setf t d d_v;
-  setf t tx tx_v;
-  setf t ty ty_v;
+  setf t a_field a;
+  setf t b_field b;
+  setf t c_field c;
+  setf t d_field d;
+  setf t tx_field tx;
+  setf t ty_field ty;
   t
-let a t = getf t a
-let b t = getf t b
-let c t = getf t c
-let d t = getf t d
-let tx t = getf t tx
-let ty t = getf t ty
+
+let a t = getf t a_field
+let b t = getf t b_field
+let c t = getf t c_field
+let d t = getf t d_field
+let tx t = getf t tx_field
+let ty t = getf t ty_field
+let setA t = setf t a_field
+let setB t = setf t b_field
+let setC t = setf t c_field
+let setD t = setf t d_field
+let setTx t = setf t tx_field
+let setTy t = setf t ty_field

CoreGraphics/CGAffineTransformComponents.ml

@@ -0,0 +1,38 @@
+(* auto-generated, do not modify *)
+
+[@@@ocaml.warning "-33"]
+open Runtime
+open Objc
+
+type t = [`CGAffineTransformComponents] structure
+(** Apple docs: {{:https://developer.apple.com/documentation/corefoundation/cgaffinetransformcomponents?language=objc}CGAffineTransformComponents} *)
+
+let t : t typ = structure "CGAffineTransformComponents"
+let scale_field = field t "scale" CGSize.t
+let horizontalShear_field = field t "horizontalShear" double
+let rotation_field = field t "rotation" double
+let translation_field = field t "translation" CGVector.t
+
+let () = seal t
+
+let init
+    ~scale
+    ~horizontalShear
+    ~rotation
+    ~translation
+  =
+  let t = make t in
+  setf t scale_field scale;
+  setf t horizontalShear_field horizontalShear;
+  setf t rotation_field rotation;
+  setf t translation_field translation;
+  t
+
+let scale t = getf t scale_field
+let horizontalShear t = getf t horizontalShear_field
+let rotation t = getf t rotation_field
+let translation t = getf t translation_field
+let setScale t = setf t scale_field
+let setHorizontalShear t = setf t horizontalShear_field
+let setRotation t = setf t rotation_field
+let setTranslation t = setf t translation_field