X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaTypes.ml;h=092c79c986e103e7c4b92fcb7bdc159e471a7b95;hb=refs%2Fheads%2Fmaster;hp=1f7c50729415d20a93466ced090ada597cea06b7;hpb=f6b7c6ae353e014761a3d24dbc87e00d828d7f2d;p=helm.git diff --git a/matita/matita/matitaTypes.ml b/matita/matita/matitaTypes.ml index 1f7c50729..092c79c98 100644 --- a/matita/matita/matitaTypes.ml +++ b/matita/matita/matitaTypes.ml @@ -25,9 +25,6 @@ (* $Id$ *) -open Printf -open GrafiteTypes - (** user hit the cancel button *) exception Cancel @@ -75,16 +72,3 @@ let entry_of_string = function | "about:grammar" -> `About `Grammar | _ -> (* only about entries supported ATM *) raise (Invalid_argument "entry_of_string") - -class type mathViewer = - object - (** @param reuse if set reused last opened cic browser otherwise - * opens a new one. default is false - *) - method show_entry: ?reuse:bool -> mathViewer_entry -> unit - method show_uri_list: - ?reuse:bool -> entry:mathViewer_entry -> NReference.reference list -> unit - method screenshot: - GrafiteTypes.status -> NCic.metasenv -> NCic.metasenv -> - NCic.substitution -> string -> unit - end