- 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 click : ([>`math_view],_) t =
- let marshal_click f _ =
- function
- [GtkArgv.POINTER element; GtkArgv.INT state] ->
- f (gdome_element_of_boxed_option element) state
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_click"
- in
- { name = "click"; classe = `math_view; marshaller = marshal_click }
-
- let element_over : ([>`math_view],_) t =
- let marshal_element_over f _ =
- function
- [GtkArgv.POINTER element; GtkArgv.INT state] ->
- f (gdome_element_option_of_boxed_option element) state
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_over"
- in
- { name = "element_over"; classe = `math_view;
- marshaller = marshal_element_over }
-
- let select_begin : ([>`math_view],_) t =
- let marshal_select_begin f _ =
- function
- [GtkArgv.POINTER element; GtkArgv.INT state] ->
- f (gdome_element_option_of_boxed_option element) state
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_begin"
- in
- { name = "select_begin"; classe = `math_view;
- marshaller = marshal_select_begin }
-
- let select_over : ([>`math_view],_) t =
- let marshal_select_over f _ =
- function
- [GtkArgv.POINTER element; GtkArgv.INT state] ->
- f (gdome_element_option_of_boxed_option element) state
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_over"
- in
- { name = "select_over"; classe = `math_view;
- marshaller = marshal_select_over }
-
- let select_end : ([>`math_view],_) t =
- let marshal_select_end f _ =
- function
- [GtkArgv.POINTER element; GtkArgv.INT state] ->
- f (gdome_element_option_of_boxed_option element) state
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_end"
- in
- { name = "select_end"; classe = `math_view;
- marshaller = marshal_select_end }
-
- let select_abort : ([>`math_view],_) t =
- let marshal_select_abort f _ =
- function
- [] -> f ()
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_abort"
- in
- { name = "select_abort"; classe = `math_view;
- marshaller = marshal_select_abort }
- end