sig class type view = object method coerce : GObj.widget method display_dir : string option -> unit end val add_view : Cam_plug.View.view -> string -> unit end