method create res_name args =
let box = new box res_name in
let v = new view (self#name) res_name box true in
let w = Cam_view.create_view_window
~title: (Printf.sprintf "%s [%s]" res_name self#name)
v
in
let _ = w#vbox#pack ~expand: true box#box#coerce in
(v, w#window)