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