let service_view ?(aa=false) model g =
GContainer.pack_container [] ~create:(fun pl ->
let w =
if aa then GnomeCanvas.Canvas.new_canvas_aa ()
else GnomeCanvas.Canvas.new_canvas () in
Gobject.set_params w pl;
new service_view w model g)