module Signals = struct
open GtkSignal
- let clicked : ([>`math_view],_) t =
- let marshal_clicked f _ =
+ let click : ([>`math_view],_) t =
+ let marshal_click f _ =
function
- [GtkArgv.POINTER element] -> f (gdome_element_of_boxed_option element)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
+ [GtkArgv.POINTER element; GtkArgv.INT state] ->
+ f (gdome_element_of_boxed_option element) state
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_click"
in
- { name = "clicked"; classe = `math_view; marshaller = marshal_clicked }
+ { name = "click"; classe = `math_view; marshaller = marshal_click }
- let press_move : ([>`math_view],_) t =
- let marshal_press_move f _ =
+ let element_over : ([>`math_view],_) t =
+ let marshal_element_over 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"
+ [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 = "press_move"; classe = `math_view;
- marshaller = marshal_press_move }
+ { name = "element_over"; classe = `math_view;
+ marshaller = marshal_element_over }
- let element_changed : ([>`math_view],_) t =
- let marshal_element_changed f _ =
+ let select_begin : ([>`math_view],_) t =
+ let marshal_select_begin f _ =
function
- [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
- | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_changed"
+ [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 = "element_changed"; classe = `math_view;
- marshaller = marshal_element_changed }
+ { 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
end