1 files changed, 11 insertions, 13 deletions
diff --git a/screen.mli b/screen.mli
index a6a33dc..b5f74b2 100755
--- a/screen.mli
+++ b/screen.mli
@@ -1,31 +1,29 @@
 (** Represent the {!module:Sheet} *)
 
-type screen
+type t
 
-(** Initialise thee screen *)
-val init: unit -> screen
-
-val close: screen -> unit
+(** Run the screen *)
+val run: (t -> 'a) -> 'a
 
 (** {2 Screen updates} *)
 
-val draw: Sheet.t -> screen -> screen
+val draw: Sheet.t -> t -> t
 
-val draw_input: Sheet.t -> screen -> screen
+val draw_input: Sheet.t -> t -> t
 
-val resize: Sheet.t -> screen -> screen 
+val resize: Sheet.t -> t -> t 
 
 (** Display a message in the status bar. *)
-val status: screen -> UTF8.t -> unit
+val status: t -> UTF8.t -> unit
 
 (** {2 User inputs} *)
 
 (** Wait for a keycode *)
-val read_key : screen -> string
+val read_key : t -> string
 (** The keycode is always NULL terminated *)
 
-val search: screen -> UTF8.t
+val search: t -> UTF8.t
 
-val get_cell: screen -> int * int -> (int * int) option
+val get_cell: t -> int * int -> (int * int) option
 
-val editor: ?position: int * int -> ?prefix:UTF8.t -> ?init:UTF8.t -> screen -> UTF8.t option
+val editor: ?position: int * int -> ?prefix:UTF8.t -> ?init:UTF8.t -> t -> UTF8.t option