- 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"
- external get_element : [>`math_view] obj -> TElement.t option =
- "ml_gtk_math_view_get_element"
- external action_get_selected : [>`math_view] obj -> int =
- "ml_gtk_math_view_action_get_selected"
- external action_set_selected : [>`math_view] obj -> int -> unit =
- "ml_gtk_math_view_action_set_selected"
- external get_action : [>`math_view] obj -> TElement.t option =
- "ml_gtk_math_view_get_action"
- external action_toggle : [>`math_view] obj -> unit =
- "ml_gtk_math_view_action_toggle"
-
- 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 selection_changed : ([>`math_view],_) t =
- let marshal_selection_changed f _ =
- function
- [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
- in
- { name = "selection_changed"; classe = `math_view;
- marshaller = marshal_selection_changed }
-
- 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"