]> matita.cs.unibo.it Git - helm.git/blob - helm/DEVEL/lablgtkmathview/gMathViewAux.mli
added Peano module and functions to create natural/real terms
[helm.git] / helm / DEVEL / lablgtkmathview / gMathViewAux.mli
1 (* Copyright (C) 2000-2003, Luca Padovani <luca.padovani@cs.unibo.it>,
2  *                          Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>.
3  *
4  * This file is part of lablgtkmathview, the Ocaml binding
5  * for the GtkMathView widget.
6  * 
7  * lablgtkmathview is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU General Public License
9  * as published by the Free Software Foundation; either version 2
10  * of the License, or (at your option) any later version.
11  *
12  * lablgtkmathview is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with lablgtkmathview; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20  * 
21  * For details, send a mail to the author.
22  *)
23
24 class single_selection_math_view_signals :
25   ([> `container | `gtk | `mathview | `widget] as 'b) Gtk.obj ->
26   ((Gdome.element option -> unit) -> unit) ->
27  object
28   inherit GMathView.math_view_signals
29   method selection_changed : (Gdome.element_of_node option -> unit) -> unit
30  end
31
32 class single_selection_math_view :
33   Gtk_mathview.math_view Gtk.obj ->
34   object
35     inherit GMathView.math_view_skel
36     method connect : single_selection_math_view_signals
37     method get_selection : Gdome.element option
38     method set_selection : Gdome.element option -> unit
39     method action_toggle : Gdome.element -> bool
40   end
41
42 val single_selection_math_view :
43   ?hadjustment:GData.adjustment ->
44   ?vadjustment:GData.adjustment ->
45   ?font_size:int ->
46   ?log_verbosity:int ->
47   ?border_width:int ->
48   ?width:int ->
49   ?height:int ->
50   ?packing:(GObj.widget -> unit) ->
51   ?show:bool ->
52   unit -> single_selection_math_view
53
54   (** EXPERIMENTAL STUFF from now on: use with care and at your own risk! *)
55
56 class multi_selection_math_view :
57   Gtk_mathview.math_view Gtk.obj ->
58   object
59     inherit single_selection_math_view
60     method remove_selection : Gdome.element -> unit
61     method remove_selections : unit
62     method add_selection : Gdome.element -> unit
63     method get_selections : Gdome.element list
64   end
65
66 val multi_selection_math_view :
67   ?hadjustment:GData.adjustment ->
68   ?vadjustment:GData.adjustment ->
69   ?font_size:int ->
70   ?log_verbosity:int ->
71   ?border_width:int ->
72   ?width:int ->
73   ?height:int ->
74   ?packing:(GObj.widget -> unit) ->
75   ?show:bool ->
76   unit -> multi_selection_math_view
77
78