sig
  val create_scrolled_canvas : (GObj.widget -> unit) -> GnoCanvas.canvas
  val create_graph_win : string -> ViewGraph_select.t_env
end