sig
  val drag_status :
    Gdk.drag_context -> Gdk.Tags.drag_action option -> time:int32 -> unit
  val drag_context_suggested_action :
    Gdk.drag_context -> Gdk.Tags.drag_action
  val drag_context_targets : Gdk.drag_context -> Gdk.atom list
end