?attributes:(string * string) list ->
Ed_view.topwin ->
((< attributes : (string * string) list; box : GObj.widget; close : unit;
    copy : (unit -> unit) option; cut : (unit -> unit) option;
    destroy : unit; dup : Ed_view.topwin -> Ed_view.gui_view option;
    filename : string; grab_focus : unit;
    key_bindings : (Okey.keyhit_state * string) list; kind : string;
    label : string; menus : (string * GToolbox.menu_entry list) list;
    minibuffer : Ed_minibuffer.minibuffer; paste : (unit -> unit) option;
    print : string -> unit; reload : (unit -> unit) option;
    save : (unit -> unit) option; save_as : (unit -> unit) option;
    set_label : string -> unit; set_on_destroy : (unit -> unit) -> unit;
    set_on_focus_in : (unit -> unit) -> unit;
    set_on_label_change : (string -> unit) -> unit;
    source_buffer : GSourceView.source_buffer;
    source_view : GSourceView.source_view; .. >
  as 'a) ->
 unit) ->
object ('a)
  val mutable label : string
  val mutable on_destroy : unit -> unit
  val mutable on_label_change : string -> unit
  method attributes : (string * string) list
  method box : GObj.widget
  method close : unit
  method copy : (unit -> unit) option
  method cut : (unit -> unit) option
  method destroy : unit
  method dup : Ed_view.topwin -> Ed_view.gui_view option
  method filename : string
  method grab_focus : unit
  method key_bindings : (Okey.keyhit_state * string) list
  method kind : string
  method label : string
  method menus : (string * GToolbox.menu_entry list) list
  method minibuffer : Ed_minibuffer.minibuffer
  method paste : (unit -> unit) option
  method print : string -> unit
  method reload : (unit -> unit) option
  method save : (unit -> unit) option
  method save_as : (unit -> unit) option
  method set_label : string -> unit
  method set_on_destroy : (unit -> unit) -> unit
  method set_on_focus_in : (unit -> unit) -> unit
  method set_on_label_change : (string -> unit) -> unit
  method source_buffer : GSourceView.source_buffer
  method source_view : GSourceView.source_view
end