Module GnoCanvas

module GnoCanvas: sig .. end

type items_properties = [ `ANCHOR of Gtk.Tags.anchor_type
       | `ARROW_SHAPE_A of float
       | `ARROW_SHAPE_B of float
       | `ARROW_SHAPE_C of float
       | `BPATH of GnomeCanvas.PathDef.t
       | `CAP_STYLE of Gdk.GC.gdkCapStyle
       | `CLIP of bool
       | `CLIP_HEIGHT of float
       | `CLIP_WIDTH of float
       | `CURSOR_BLINK of bool
       | `CURSOR_VISIBLE of bool
       | `DASH of float * float array
       | `EDITABLE of bool
       | `FAMILY of string
       | `FILL_COLOR of string
       | `FILL_COLOR_RGBA of int32
       | `FILL_STIPPLE of Gdk.bitmap
       | `FIRST_ARROWHEAD of bool
       | `FONT of string
       | `GROW_HEIGHT of bool
       | `HEIGHT of float
       | `JOIN_STYLE of Gdk.GC.gdkJoinStyle
       | `JUSTIFICATION of Gtk.Tags.justification
       | `LAST_ARROWHEAD of bool
       | `LEFT_MARGIN of int
       | `LINE_STYLE of Gdk.GC.gdkLineStyle
       | `MARKUP of string
       | `NO_BPATH
       | `NO_FILL_COLOR
       | `NO_FONT
       | `NO_OUTLINE_COLOR
       | `NO_PIXBUF
       | `NO_TEXT
       | `NO_WIDGET
       | `OUTLINE_COLOR of string
       | `OUTLINE_COLOR_RGBA of int32
       | `OUTLINE_STIPPLE of Gdk.bitmap
       | `PIXBUF of GdkPixbuf.pixbuf
       | `POINTS of float array
       | `RIGHT_MARGIN of int
       | `RISE of int
       | `SCALE of float
       | `SIZE of int
       | `SIZE_PIXELS of bool
       | `SIZE_POINTS of float
       | `SMOOTH of bool
       | `TEXT of string
       | `VISIBLE of bool
       | `WEIGHT of int
       | `WIDGET of GObj.widget
       | `WIDTH of float
       | `WIDTH_PIXELS of int
       | `WIDTH_UNITS of float
       | `X of float
       | `X1 of float
       | `X2 of float
       | `X_OFFSET of float
       | `Y of float
       | `Y1 of float
       | `Y2 of float
       | `Y_OFFSET of float ] 

val propertize : [< items_properties ] -> string * unit Gobject.data_set

type item_event = [ `BUTTON_PRESS of GdkEvent.Button.t
       | `BUTTON_RELEASE of GdkEvent.Button.t
       | `ENTER_NOTIFY of GdkEvent.Crossing.t
       | `FOCUS_CHANGE of GdkEvent.Focus.t
       | `KEY_PRESS of GdkEvent.Key.t
       | `KEY_RELEASE of GdkEvent.Key.t
       | `LEAVE_NOTIFY of GdkEvent.Crossing.t
       | `MOTION_NOTIFY of GdkEvent.Motion.t
       | `THREE_BUTTON_PRESS of GdkEvent.Button.t
       | `TWO_BUTTON_PRESS of GdkEvent.Button.t ] 

class item_signals : [> GnomeCanvas.item ] Gtk.obj -> object .. end

class base_item : [> GnomeCanvas.item ] Gtk.obj -> object .. end

class group : GnomeCanvas.group Gtk.obj -> object .. end

class canvas : GnomeCanvas.canvas Gtk.obj -> object .. end

class [[< items_properties ]] item : [> GnomeCanvas.item ] Gtk.obj -> object .. end

val canvas : ?aa:bool ->
       ?border_width:int ->
       ?width:int ->
       ?height:int ->
       ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> canvas

val group : ?x:float -> ?y:float -> #group -> group

val wrap_item : [> GnomeCanvas.item ] Gtk.obj ->
       ([> `canvasitem | `gtk ], [< items_properties ] as 'a)
       GnomeCanvas.Types.t -> 'a item

type rect = GnomeCanvas.re_p item 

val rect : ?x1:float ->
       ?y1:float ->
       ?x2:float ->
       ?y2:float ->
       ?fill_color:string ->
       ?props:GnomeCanvas.re_p list -> #group -> rect

type ellipse = GnomeCanvas.re_p item 

val ellipse : ?x1:float ->
       ?y1:float ->
       ?x2:float ->
       ?y2:float ->
       ?fill_color:string ->
       ?props:GnomeCanvas.re_p list -> #group -> ellipse

class text : GnomeCanvas.text Gtk.obj -> object .. end

val text : ?x:float ->
       ?y:float ->
       ?text:string ->
       ?font:string ->
       ?size:int ->
       ?anchor:Gtk.Tags.anchor_type ->
       ?props:GnomeCanvas.text_p list -> #group -> text

type line = GnomeCanvas.line_p item 

val line : ?points:float array ->
       ?fill_color:string ->
       ?props:GnomeCanvas.line_p list -> #group -> line

type bpath = GnomeCanvas.bpath_p item 

val bpath : ?bpath:GnomeCanvas.PathDef.t ->
       ?fill_color:string ->
       ?props:GnomeCanvas.bpath_p list -> #group -> bpath

type pixbuf = GnomeCanvas.pixbuf_p item 

val pixbuf : ?x:float ->
       ?y:float ->
       ?pixbuf:GdkPixbuf.pixbuf ->
       ?width:float ->
       ?height:float ->
       ?props:GnomeCanvas.pixbuf_p list -> #group -> pixbuf

type polygon = GnomeCanvas.polygon_p item 

val polygon : ?points:float array ->
       ?fill_color:string ->
       ?props:GnomeCanvas.polygon_p list -> #group -> polygon

type widget = GnomeCanvas.widget_p item 

val widget : ?widget:< coerce : GObj.widget; .. > ->
       ?x:float ->
       ?y:float ->
       ?width:float ->
       ?height:float ->
       ?props:GnomeCanvas.widget_p list -> #group -> widget

class rich_text : GnomeCanvas.rich_text Gtk.obj -> object .. end

val rich_text : ?x:float ->
       ?y:float ->
       ?text:string ->
       ?width:float ->
       ?height:float ->
       ?props:GnomeCanvas.rich_text_p list ->
       #group -> rich_text