X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FcicMathView.mli;h=521115548438e2e874e67a7f83d059cef885be92;hb=90c02d72e5bb0ee0a9f98b12c540cca1b0c9c411;hp=b3b97f7d0b2971293a3cde7886ac505b9e4fb445;hpb=ad3546bfc633935891d8c69ea704c86207c83f57;p=helm.git diff --git a/matita/matita/cicMathView.mli b/matita/matita/cicMathView.mli index b3b97f7d0..521115548 100644 --- a/matita/matita/cicMathView.mli +++ b/matita/matita/cicMathView.mli @@ -29,15 +29,10 @@ class type cicMathView = object inherit GObj.widget - method set_font_size: int -> unit - method update_font_size: unit - method load_root : root:document_element -> unit - method action_toggle: document_element -> bool method remove_selections: unit method set_selection: document_element option -> unit method get_selections: document_element list - method has_selection: bool (** @raise Failure "no selection" *) method strings_of_selection: (MatitaGuiTypes.paste_kind * string) list @@ -61,3 +56,12 @@ val cicMathView : val empty_mathml: document_element Lazy.t val closed_goal_mathml: document_element Lazy.t + +val screenshot: + GrafiteTypes.status -> NCic.metasenv -> NCic.metasenv -> + NCic.substitution -> string -> unit + +(* CSC: these functions should completely disappear; bad design; + the object type is MatitaScript.script *) +val register_matita_script_current: (unit -> < advance: ?statement:string -> unit -> unit; status: GrafiteTypes.status >) -> unit +val get_matita_script_current: unit -> < advance: ?statement:string -> unit -> unit; status: GrafiteTypes.status >