open Gtk_mathview
open Tags
open GtkBase
-open Misc
+open Gpointer
-external mDOMNode_of_boxed :
- Misc.pointer -> Minidom.mDOMNode =
- "ml_gtk_math_view_mDOMNode_of_boxed"
+external mDOMNode_of_boxed_option :
+ Gpointer.boxed option -> Minidom.mDOMNode =
+ "ml_gtk_math_view_mDOMNode_of_bodex_option"
-external mDOMNode_option_of_boxed :
- Misc.pointer -> Minidom.mDOMNode option =
- "ml_gtk_math_view_mDOMNode_option_of_boxed"
+external mDOMNode_option_of_boxed_option :
+ Gpointer.boxed option -> Minidom.mDOMNode option =
+ "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
let o_mDOMNode_of_mDOMNode node = new Ominidom.o_mDOMNode node
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)))
+ let marshal_clicked f _ =
+ function
+ [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
| _ -> 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)))
+ let marshal_jump f _ =
+ function
+ [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
| _ -> 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
+ let marshal_selection_changed f _ =
+ function
+ [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
in
{ name = "selection_changed"; marshaller = marshal_selection_changed }
end