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 -> (Stdlib.Format.formatter -> unit) -> unit
end