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