sig
  type color =
      [ `BLACK
      | `COLOR of Gdk.color
      | `NAME of string
      | `RGB of int * int * int
      | `WHITE ]
  val color : GDraw.color -> Gdk.color
  module Cairo : sig val create : Gdk.window -> Gdk.cairo end
  class drag_context :
    Gdk.drag_context ->
    object
      val context : Gdk.drag_context
      method status : ?time:int32 -> Gdk.Tags.drag_action option -> unit
      method suggested_action : Gdk.Tags.drag_action
      method targets : string list
    end
end