sig
  val graph_window :
    parent:GWindow.window ->
    title:string ->
    (packing:(GObj.widget -> unit) ->
     unit -> < adapt_zoom : unit -> unit; .. >) ->
    unit
  val graph_window_through_dot :
    parent:GWindow.window ->
    title:string -> (Format.formatter -> unit) -> unit
end