let drawing_area = mmlwidget#get_drawing_area in
let _ = drawing_area#misc#set_can_focus true in
let _ = drawing_area#misc#grab_focus () in
- let dictionary =
- Misc.domImpl#createDocumentFromURI
- "/home/claudio/miohelm/helm/DEVEL/mathml_editor/dictionary-tex.xml" () in
- let mml_style =
- Misc.domImpl#createDocumentFromURI
- "/home/claudio/miohelm/helm/DEVEL/mathml_editor/xsl/tml-mmlp.xsl" () in
- let tex_style =
- Misc.domImpl#createDocumentFromURI
- "/home/claudio/miohelm/helm/DEVEL/mathml_editor/xsl/tml-tex.xsl" () in
let logger =
fun l s -> prerr_endline ("TERM_EDITOR (" ^ string_of_int l ^ "): " ^ s) in
let tex_editor =
- Mathml_editor.create dictionary mml_style tex_style logger in
+ Mathml_editor.create
+ Mathml_editor.default_dictionary_path
+ Mathml_editor.default_mathml_stylesheet_path
+ Mathml_editor.default_tex_stylesheet_path
+ logger
+ in
let _ =
(new GObj.event_ops mmlwidget#coerce#as_widget)#connect#button_press
~callback:(fun _ -> drawing_area#misc#grab_focus () ; true) in
else if key = GdkKeysyms._u then
begin
mmlwidget#freeze ;
+ ignore (Mathml_editor.freeze tex_editor) ;
Mathml_editor.reset tex_editor ;
Mathml_editor.push tex_editor '$' ;
+ ignore (Mathml_editor.thaw tex_editor) ;
mmlwidget#thaw
end
else if key = GdkKeysyms._BackSpace then
method coerce = mmlwidget#coerce
method reset =
mmlwidget#freeze ;
+ ignore (Mathml_editor.freeze tex_editor) ;
Mathml_editor.reset tex_editor ;
Mathml_editor.push tex_editor '$' ;
+ ignore (Mathml_editor.thaw tex_editor) ;
mmlwidget#thaw
method set_term txt =