let create_graph_win title model =
let window = GWindow.window ~title
~allow_shrink:true ~allow_grow:true () in
let vbox = GPack.vbox ~border_width:4 ~spacing:4
~packing:window#add () in
let packing = vbox#pack ~expand:true ~fill:true in
let view, _table = scrolled_view ~packing model in
(* let hbox = GPack.hbox ~spacing:4 ~packing:vbox#pack () in*)
window, view