-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
+(* Copyright (C) 2000-2003, Luca Padovani <luca.padovani@cs.unibo.it>,
+ * Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>.
*
* This file is part of lablgtkmathview, the Ocaml binding
* for the GtkMathView widget.
*
* This file is part of lablgtkmathview, the Ocaml binding
* for the GtkMathView widget.
external get_width : [>`math_view] obj -> int =
"ml_gtk_math_view_get_width"
external get_height : [>`math_view] obj -> int =
external get_width : [>`math_view] obj -> int =
"ml_gtk_math_view_get_width"
external get_height : [>`math_view] obj -> int =
"ml_gtk_math_view_get_buffer"
external get_frame : [>`math_view] obj -> Gtk.frame obj =
"ml_gtk_math_view_get_frame"
"ml_gtk_math_view_get_buffer"
external get_frame : [>`math_view] obj -> Gtk.frame obj =
"ml_gtk_math_view_get_frame"
external set_font_size : [>`math_view] obj -> int -> unit =
"ml_gtk_math_view_set_font_size"
external get_font_size : [>`math_view] obj -> int =
external set_font_size : [>`math_view] obj -> int -> unit =
"ml_gtk_math_view_set_font_size"
external get_font_size : [>`math_view] obj -> int =
| _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_click"
in
{ name = "click"; classe = `math_view; marshaller = marshal_click }
| _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_click"
in
{ name = "click"; classe = `math_view; marshaller = marshal_click }