Module Gobject

type -'a obj
type g_type
type g_class
type g_value
type g_closure
type basic = [
  1. | `BOOL of bool
  2. | `CAML of Stdlib.Obj.t
  3. | `CHAR of char
  4. | `FLOAT of float
  5. | `INT of int
  6. | `INT64 of int64
  7. | `POINTER of Gpointer.boxed option
  8. | `STRING of string option
]
type data_get = [
  1. | basic
  2. | `NONE
  3. | `OBJECT of unit obj option
]
type 'a data_set = [
  1. | basic
  2. | `OBJECT of 'a obj option
  3. | `INT32 of int32
  4. | `LONG of nativeint
]
type base_data = [
  1. | `BOOLEAN
  2. | `CHAR
  3. | `UCHAR
  4. | `INT
  5. | `UINT
  6. | `LONG
  7. | `ULONG
  8. | `INT64
  9. | `UINT64
  10. | `ENUM
  11. | `FLAGS
  12. | `FLOAT
  13. | `DOUBLE
  14. | `STRING
  15. | `POINTER
  16. | `BOXED
  17. | `OBJECT
]
type data_kind = [
  1. | `INT32
  2. | `UINT32
  3. | `OTHER of g_type
  4. | base_data
]
type data_conv_get = [
  1. | `INT32 of int32
  2. | data_get
]
type 'a data_conv = {
  1. kind : data_kind;
  2. proj : data_conv_get -> 'a;
  3. inj : 'a -> unit data_set;
}
type ('a, 'b) property = {
  1. name : string;
  2. conv : 'b data_conv;
}
type fundamental_type = [
  1. | `INVALID
  2. | `NONE
  3. | `INTERFACE
  4. | `PARAM
  5. | base_data
]
type signal_type = [
  1. | `RUN_FIRST
  2. | `RUN_LAST
  3. | `NO_RECURSE
  4. | `ACTION
  5. | `NO_HOOKS
]
exception Cannot_cast of string * string
val get_type : 'a obj -> g_type
val is_a : 'a obj -> string -> bool
val try_cast : 'a obj -> string -> 'b obj
val get_oid : 'a obj -> int
val unsafe_cast : 'a obj -> 'b obj
val coerce : 'a obj -> unit obj
val coerce_option : 'a obj option -> unit obj option
type +'a param
val dyn_param : string -> 'a data_set -> 'b param
val param : ('a, 'b) property -> 'b -> 'a param
val unsafe_create : classe:string -> 'a param list -> 'a obj
val unsafe_unref : 'a obj -> unit
val get_ref_count : 'a obj -> int
val set : ('a, 'b) property -> 'a obj -> 'b -> unit
val get : ('a, 'b) property -> 'a obj -> 'b
val set_params : 'a obj -> 'a param list -> unit
module Type : sig ... end
module Value : sig ... end
module Closure : sig ... end
module Data : sig ... end
module Property : sig ... end