open GtkBase
open Gpointer
-external mDOMNode_of_boxed_option : Gpointer.boxed option -> Minidom.mDOMNode =
- "ml_gtk_math_view_mDOMNode_of_bodex_option"
+external mDOMNode_of_boxed_option :
+ Gpointer.boxed option -> Minidom.mDOMNode =
+ "ml_gtk_math_view_mDOMNode_of_bodex_option"
+
+external mDOMNode_option_of_boxed_option :
+ Gpointer.boxed option -> Minidom.mDOMNode option =
+ "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
module MathView = struct
let cast w : math_view obj = Object.try_cast w "GtkMathView"
"ml_gtk_math_view_load"
external unload : [>`math_view] obj -> unit =
"ml_gtk_math_view_unload"
- (*external dump : [>`math_view] obj -> unit =
- "ml_gtk_math_view_dump"*)
- external get_selection : [>`math_view] obj -> Minidom.mDOMNode =
+ external get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
"ml_gtk_math_view_get_selection"
- external set_selection : [>`math_view] obj -> Minidom.mDOMNode -> unit =
+ external set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
"ml_gtk_math_view_set_selection"
external get_width : [>`math_view] obj -> int =
"ml_gtk_math_view_get_width"
let selection_changed : ([>`math_view],_) t =
let marshal_selection_changed f _ =
function
- [GtkArgv.POINTER node] -> f (mDOMNode_of_boxed_option node)
+ [GtkArgv.POINTER node] -> f (mDOMNode_option_of_boxed_option node)
| _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
in
{ name = "selection_changed"; marshaller = marshal_selection_changed }