let scrolled_view ~packing model =
let frame = GBin.frame ~shadow_type:`IN () in
let aa = true in
let view = DGraphView.highlight_focus_view
~aa ~width:1280 ~height:1024 ~packing:frame#add model () in
ignore $ view#set_center_scroll_region true;
let table = GPack.table ~packing
~rows:2 ~columns:2 ~row_spacings:4 ~col_spacings:4 () in
ignore $ table#attach ~left:0 ~right:1 ~top:0 ~bottom:1
~expand:`BOTH ~fill:`BOTH ~shrink:`BOTH ~xpadding:0 ~ypadding:0
frame#coerce;
let w = GRange.scrollbar `HORIZONTAL ~adjustment:view#hadjustment () in
ignore $ table#attach ~left:0 ~right:1 ~top:1 ~bottom:2
~expand:`X ~fill:`BOTH ~shrink:`X ~xpadding:0 ~ypadding:0
w#coerce;
let w = GRange.scrollbar `VERTICAL ~adjustment:view#vadjustment () in
ignore $ table#attach ~left:1 ~right:2 ~top:0 ~bottom:1
~expand:`Y ~fill:`BOTH ~shrink:`Y ~xpadding:0 ~ypadding:0
w#coerce;
view, table