- 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 argv =
- match GtkArgv.get_pointer argv ~pos:0 with
- Some p -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed (Obj.magic p)))
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
- in
- { name = "clicked"; marshaller = marshal_clicked }
-
- let jump : ([>`math_view],_) t =
- let marshal_jump f argv =
- match GtkArgv.get_pointer argv ~pos:0 with
- Some p -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed (Obj.magic p)))
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
- in
- { name = "jump"; marshaller = marshal_jump }
-
- let selection_changed : ([>`math_view],_) t =
- let marshal_selection_changed f argv =
- match GtkArgv.get_pointer argv ~pos:0 with
- Some p ->f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed (Obj.magic p)))
- | None -> f None
- in
- { name = "selection_changed"; marshaller = marshal_selection_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"