sig
  val file_exists : string -> bool
  val is_prefix : string -> string -> bool
  class ['a] box :
    'Ocamlcvs.Behav.tree_behaviour ->
    object
      val mutable selected_node : GTree.tree_item option
      val mutable selection : string option
      method box : GPack.box
      method cvs_add_binary_files : unit
      method cvs_add_dir : unit
      method cvs_add_files : unit
      method cvs_commit_dir : unit
      method cvs_tag_dir : unit
      method cvs_update_dir : unit
      method insert_node : GTree.tree -> string -> string -> unit
      method select_dir : string -> GTree.tree_item -> unit
      method selection : string option
      method unselect_dir : string -> unit
      method update : unit
      method update_selected_dir : unit
    end
end