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