(* *)
(******************************************************************************)
+let use_stylesheets = ref true;;(* false performs the transformations in OCaml*)
+
(* List utility functions *)
exception Skip;;
inherit GMathViewAux.single_selection_math_view obj
+ initializer self#set_font_size 10
+
val mutable current_infos = None
+ val mutable current_mml = None
method make_sequent_of_selected_term =
match self#get_selection with
ApplyStylesheets.mml_of_cic_object
~explode_all:true uri acic ids_to_inner_sorts ids_to_inner_types
in
- self#load_doc ~dom:mml ;
+ (match current_mml with
+ None ->
+prerr_endline "0000000000000000 CARICO L'mml PRODOTTO" ;
+ self#load_doc ~dom:mml ;
+ current_mml <- Some mml
+ | Some current_mml ->
+ self#freeze ;
+ XmlDiff.update_dom ~from:current_mml mml ;
+ self#thaw) ;
+(*
+ self#load_doc ~dom:mml ;
+ current_mml <- Some mml ;
+*)
current_infos <-
Some
(ids_to_terms,ids_to_father_ids,ids_to_conjectures,ids_to_hypotheses) ;
- (acic, ids_to_inner_types, ids_to_inner_sorts)
+ (acic, ids_to_inner_types, ids_to_inner_sorts)
end
;;
end;
mathview
;;
+
+let _ =
+ Cexpr2pres_hashtbl.init Cexpr2pres.cexpr2pres Cexpr2pres.cexpr2pres_charcount
+;;