Module Gdk.GC

module GC: sig .. end

type gdkFunction = [ `COPY | `INVERT | `XOR ]

type gdkFill = [ `OPAQUE_STIPPLED | `SOLID | `STIPPLED | `TILED ]

type gdkSubwindowMode = [ `CLIP_BY_CHILDREN | `INCLUDE_INFERIORS ]

type gdkLineStyle = [ `DOUBLE_DASH | `ON_OFF_DASH | `SOLID ]

type gdkCapStyle = [ `BUTT | `NOT_LAST | `PROJECTING | `ROUND ]

type gdkJoinStyle = [ `BEVEL | `MITER | `ROUND ]

val create : [> `drawable ] Gobject.obj -> Gdk.gc

val set_foreground : Gdk.gc -> Gdk.color -> unit

val set_background : Gdk.gc -> Gdk.color -> unit

val set_font : Gdk.gc -> Gdk.font -> unit

val set_function : Gdk.gc -> gdkFunction -> unit

val set_fill : Gdk.gc -> gdkFill -> unit

val set_tile : Gdk.gc -> Gdk.pixmap -> unit

val set_stipple : Gdk.gc -> Gdk.pixmap -> unit

val set_ts_origin : Gdk.gc -> x:int -> y:int -> unit

val set_clip_origin : Gdk.gc -> x:int -> y:int -> unit

val set_clip_mask : Gdk.gc -> Gdk.bitmap -> unit

val set_clip_rectangle : Gdk.gc -> Gdk.Rectangle.t -> unit

val set_clip_region : Gdk.gc -> Gdk.region -> unit

val set_subwindow : Gdk.gc -> gdkSubwindowMode -> unit

val set_exposures : Gdk.gc -> bool -> unit

val set_line_attributes : Gdk.gc ->
       width:int ->
       style:gdkLineStyle ->
       cap:gdkCapStyle -> join:gdkJoinStyle -> unit

val set_dashes : Gdk.gc -> offset:int -> int list -> unit

val copy : dst:Gdk.gc -> Gdk.gc -> unit

type values = {

	`foreground : Gdk.color;`
	`background : Gdk.color;`
	`font : Gdk.font option;`
	`fonction : gdkFunction;`
	`fill : gdkFill;`
	`tile : Gdk.pixmap option;`
	`stipple : Gdk.pixmap option;`
	`clip_mask : Gdk.bitmap option;`
	`subwindow_mode : gdkSubwindowMode;`
	`ts_x_origin : int;`
	`ts_y_origin : int;`
	`clip_x_origin : int;`
	`clip_y_origin : int;`
	`graphics_exposures : bool;`
	`line_width : int;`
	`line_style : gdkLineStyle;`
	`cap_style : gdkCapStyle;`
	`join_style : gdkJoinStyle;`

}

val get_values : Gdk.gc -> values