let create_graph_win title model g =
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 g in
window, view