math_view obj = "ml_gtk_math_view_new"
let create ~adjustmenth ~adjustmentv () =
create (optboxed adjustmenth) (optboxed adjustmentv)
- external load : [>`math_view] obj -> filename:string -> bool =
- "ml_gtk_math_view_load"
- external load_tree : [>`math_view] obj -> dom:[> `Document] GdomeT.t -> bool =
- "ml_gtk_math_view_load_tree"
+ external freeze : [>`math_view] obj -> unit =
+ "ml_gtk_math_view_freeze"
+ external thaw : [>`math_view] obj -> unit =
+ "ml_gtk_math_view_thaw"
+ external load_uri : [>`math_view] obj -> filename:string -> bool =
+ "ml_gtk_math_view_load_uri"
+ external load_doc : [>`math_view] obj -> dom:[> `Document] GdomeT.t -> bool =
+ "ml_gtk_math_view_load_doc"
external unload : [>`math_view] obj -> unit =
"ml_gtk_math_view_unload"
- external get_selection : [>`math_view] obj -> TElement.t option =
- "ml_gtk_math_view_get_selection"
- external set_selection :
- [>`math_view] obj -> [> `Element] GdomeT.t option -> unit=
- "ml_gtk_math_view_set_selection"
+ external select :
+ [>`math_view] obj -> [> `Element] GdomeT.t -> unit =
+ "ml_gtk_math_view_select"
+ external unselect :
+ [>`math_view] obj -> [> `Element] GdomeT.t -> unit =
+ "ml_gtk_math_view_unselect"
+ external is_selected :
+ [>`math_view] obj -> [> `Element] GdomeT.t -> bool =
+ "ml_gtk_math_view_is_selected"
external get_width : [>`math_view] obj -> int =
"ml_gtk_math_view_get_width"
external get_height : [>`math_view] obj -> int =
"ml_gtk_math_view_set_anti_aliasing"
external get_anti_aliasing : [>`math_view] obj -> bool =
"ml_gtk_math_view_get_anti_aliasing"
- external set_kerning : [>`math_view] obj -> bool -> unit =
- "ml_gtk_math_view_set_kerning"
- external get_kerning : [>`math_view] obj -> bool =
- "ml_gtk_math_view_get_kerning"
external set_transparency : [>`math_view] obj -> bool -> unit =
"ml_gtk_math_view_set_transparency"
external get_transparency : [>`math_view] obj -> bool =
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
in
{ name = "clicked"; classe = `math_view; marshaller = marshal_clicked }
- let selection_changed : ([>`math_view],_) t =
- let marshal_selection_changed f _ =
+ let press_move : ([>`math_view],_) t =
+ let marshal_press_move f _ =
function
- [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
+ [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 = "selection_changed"; classe = `math_view;
- marshaller = marshal_selection_changed }
+ { name = "press_move"; classe = `math_view;
+ marshaller = marshal_press_move }
let element_changed : ([>`math_view],_) t =
let marshal_element_changed f _ =