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