- external export_to_postscript :
- [>`math_view] obj -> width:int -> height:int -> x_margin:int -> y_margin:int -> disable_colors:bool -> filename:string -> bool =
- "ml_gtk_math_view_export_to_postscript_bytecode" "ml_gtk_math_view_export_to_postscript_native"
- external get_font_manager_type : [>`math_view] obj ->
- [`font_manager_gtk | `font_manager_t1] =
- "ml_gtk_math_view_get_font_manager_type"
- external set_font_manager_type : [>`math_view] obj ->
- fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
- "ml_gtk_math_view_set_font_manager_type"
-
- module Signals = struct
- open GtkSignal
-
- let clicked : ([>`math_view],_) t =
- let marshal_clicked f _ =
- function
- [GtkArgv.POINTER element] -> f (gdome_element_of_boxed_option element)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
- in
- { name = "clicked"; classe = `math_view; marshaller = marshal_clicked }
-
- let press_move : ([>`math_view],_) t =
- let marshal_press_move f _ =
- function
- [GtkArgv.POINTER first; GtkArgv.POINTER last] ->
- f (gdome_element_option_of_boxed_option first)
- (gdome_element_option_of_boxed_option last)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_press_move"
- in
- { name = "press_move"; classe = `math_view;
- marshaller = marshal_press_move }
-
- let element_changed : ([>`math_view],_) t =
- let marshal_element_changed f _ =
- function
- [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_changed"
- in
- { name = "element_changed"; classe = `math_view;
- marshaller = marshal_element_changed }
- end
+ external set_t1_opaque_mode : [>`mathview_gmetadom] obj -> bool -> unit =
+ "ml_gtk_math_view_set_t1_opaque_mode"
+ external get_t1_opaque_mode : [>`mathview_gmetadom] obj -> bool =
+ "ml_gtk_math_view_get_t1_opaque_mode"
+ external set_t1_anti_aliased_mode : [>`mathview_gmetadom] obj -> bool -> unit =
+ "ml_gtk_math_view_set_t1_anti_aliased_mode"
+ external get_t1_anti_aliased_mode : [>`mathview_gmetadom] obj -> bool =
+ "ml_gtk_math_view_get_t1_anti_aliased_mode"