class gui :Inheritsstring list ->object..end
val mutable file_boxes : file listmethod add_file_box : string option -> unitmethod active_file : file optionmethod quit : unit -> unitmethod about : unit -> unitmethod new_report : unit -> unitmethod close_current : unit -> unitmethod open_report : unit -> unitmethod on_current : (file -> unit) -> unit -> unit