-(* 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.
exception ErrorLoadingFile of string
exception ErrorWritingFile of string
exception ErrorLoadingDOM
-exception NoSelection
+
class math_view_signals :
- ([> `container | `widget | `base | `math_view] as 'b) Gtk.obj ->
+ ([> `container | `gtk | `mathview | `widget] as 'b) Gtk.obj ->
object ('a)
inherit GContainer.container_signals
+ val after: bool
val obj: 'b Gtk.obj
- method clicked : callback:(Gdome.element -> unit) -> GtkSignal.id
- method element_changed :
- callback:(Gdome.element option -> unit) -> GtkSignal.id
- method selection_changed :
- callback:(Gdome.element option -> unit) -> GtkSignal.id
+ method click :
+ callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+ method element_over :
+ callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+ method select_begin :
+ callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+ method select_over :
+ callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+ method select_end :
+ callback:(Gdome.element option -> int -> unit) -> GtkSignal.id
+ method select_abort :
+ callback:(unit -> unit) -> GtkSignal.id
end
-class math_view :
+
+class math_view_skel :
(Gtk_mathview.math_view Gtk.obj as 'a)->
object
inherit GContainer.container
- method action_get_selected : int
- method action_set_selected : int -> unit
- method action_toggle : unit
- method connect : math_view_signals
- method export_to_postscript :
- ?width:int ->
- ?height:int ->
- ?x_margin:int ->
- ?y_margin:int ->
- ?disable_colors:bool -> filename:string -> unit -> unit
- method get_action : Gdome.element option
- method get_anti_aliasing : bool
+ method freeze : unit
+ method thaw : unit
method get_buffer : Gdk.pixmap
- method get_element : Gdome.element option
- method get_font_manager_type : [ `font_manager_gtk | `font_manager_t1]
method get_font_size : int
- method get_frame : GBin.frame
+ method get_drawing_area : GMisc.drawing_area
method get_hadjustment : GData.adjustment
method get_height : int
- method get_kerning : bool
method get_log_verbosity : int
- method get_selection : Gdome.element option
method get_top : int * int
- method get_transparency : bool
method get_vadjustment : GData.adjustment
method get_width : int
- method load : filename:string -> unit
- method load_tree : dom:Gdome.document -> unit
+ method load_uri : filename:string -> unit
+ method load_doc : dom:Gdome.document -> unit
method set_adjustments : GData.adjustment -> GData.adjustment -> unit
- method set_anti_aliasing : bool -> unit
- method set_font_manager_type :
- fm_type:[ `font_manager_gtk | `font_manager_t1] -> unit
method set_font_size : int -> unit
- method set_kerning : bool -> unit
method set_log_verbosity : int -> unit
- method set_selection : Gdome.element option -> unit
+ method select : Gdome.element -> unit
+ method unselect : Gdome.element -> unit
+ method get_element_at : int -> int -> Gdome.element option
+ method is_selected : Gdome.element -> bool
method set_top : int -> int -> unit
- method set_transparency : bool -> unit
method unload : unit
val obj : 'a
end
+
+class math_view :
+ Gtk_mathview.math_view Gtk.obj ->
+ object
+ inherit math_view_skel
+ method connect : math_view_signals
+ end
+
val math_view :
- ?adjustmenth:GData.adjustment ->
- ?adjustmentv:GData.adjustment ->
+ ?hadjustment:GData.adjustment ->
+ ?vadjustment:GData.adjustment ->
?font_size:int ->
- ?font_manager:[ `font_manager_gtk | `font_manager_t1] ->
+ ?log_verbosity:int ->
?border_width:int ->
?width:int ->
?height:int ->