X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtkmathview%2FgtkMathView.ml;h=2420c94c110f2c3ca6f2edee7d32e9a01decf82c;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=5d400bc5968af9b44c5f1c1c6d47e5ec9b44d8d3;hpb=91da8438a05450c656ae949e6a3ae8e4bbc3d161;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/gtkMathView.ml b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
index 5d400bc59..2420c94c1 100644
--- a/helm/DEVEL/lablgtkmathview/gtkMathView.ml
+++ b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
@@ -1,4 +1,5 @@
-(* 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.
@@ -42,17 +43,28 @@ module MathView = struct
    math_view obj = "ml_gtk_math_view_new"
   let create ~adjustmenth ~adjustmentv () =
    create (optboxed adjustmenth) (optboxed adjustmentv)
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external load_tree : [>`math_view] obj -> dom:[> `Document] GdomeT.t -> bool =
-   "ml_gtk_math_view_load_tree"
+  external freeze : [>`math_view] obj -> unit =
+   "ml_gtk_math_view_freeze"
+  external thaw : [>`math_view] obj -> unit =
+   "ml_gtk_math_view_thaw"
+  external load_uri : [>`math_view] obj -> filename:string -> bool =
+   "ml_gtk_math_view_load_uri"
+  external load_doc : [>`math_view] obj -> dom:[> `Document] GdomeT.t -> bool =
+   "ml_gtk_math_view_load_doc"
   external unload : [>`math_view] obj -> unit =
    "ml_gtk_math_view_unload"
-  external get_selection : [>`math_view] obj -> TElement.t option =
-   "ml_gtk_math_view_get_selection"
-  external set_selection :
-   [>`math_view] obj -> [> `Element] GdomeT.t option -> unit=
-   "ml_gtk_math_view_set_selection"
+  external select :
+   [>`math_view] obj -> [> `Element] GdomeT.t -> unit =
+   "ml_gtk_math_view_select"
+  external unselect :
+   [>`math_view] obj -> [> `Element] GdomeT.t -> unit =
+   "ml_gtk_math_view_unselect"
+  external is_selected :
+   [>`math_view] obj -> [> `Element] GdomeT.t -> bool =
+   "ml_gtk_math_view_is_selected"
+  external get_element_at :
+   [> `math_view] obj -> int -> int -> TElement.t option =
+   "ml_gtk_math_view_get_element_at"
   external get_width : [>`math_view] obj -> int =
    "ml_gtk_math_view_get_width"
   external get_height : [>`math_view] obj -> int =
@@ -71,6 +83,8 @@ module MathView = struct
    "ml_gtk_math_view_get_buffer"
   external get_frame : [>`math_view] obj -> Gtk.frame obj =
    "ml_gtk_math_view_get_frame"
+  external get_drawing_area : [>`math_view] obj -> Gtk.drawing_area obj =
+   "ml_gtk_math_view_get_drawing_area"
   external set_font_size : [>`math_view] obj -> int -> unit =
    "ml_gtk_math_view_set_font_size"
   external get_font_size : [>`math_view] obj -> int =
@@ -79,10 +93,6 @@ module MathView = struct
    "ml_gtk_math_view_set_anti_aliasing"
   external get_anti_aliasing : [>`math_view] obj -> bool =
    "ml_gtk_math_view_get_anti_aliasing"
-  external set_kerning : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_kerning"
-  external get_kerning : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_kerning"
   external set_transparency : [>`math_view] obj -> bool -> unit =
    "ml_gtk_math_view_set_transparency"
   external get_transparency : [>`math_view] obj -> bool =
@@ -100,44 +110,66 @@ module MathView = struct
   external set_font_manager_type : [>`math_view] obj ->
     fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
    "ml_gtk_math_view_set_font_manager_type"
-  external get_element : [>`math_view] obj -> TElement.t option =
-   "ml_gtk_math_view_get_element"
-  external action_get_selected : [>`math_view] obj -> int =
-   "ml_gtk_math_view_action_get_selected"
-  external action_set_selected : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_action_set_selected"
-  external get_action : [>`math_view] obj -> TElement.t option =
-   "ml_gtk_math_view_get_action"
-  external action_toggle : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_action_toggle"
   
   module Signals = struct
     open GtkSignal
 
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
+    let click : ([>`math_view],_) t =
+     let marshal_click f _ =
       function
-         [GtkArgv.POINTER element] -> f (gdome_element_of_boxed_option element)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
+         [GtkArgv.POINTER element; GtkArgv.INT state] ->
+	   f (gdome_element_option_of_boxed_option element) state
+       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_click"
      in
-      { name = "clicked"; classe = `math_view; marshaller = marshal_clicked }
+      { name = "click"; classe = `math_view; marshaller = marshal_click }
 
-    let selection_changed : ([>`math_view],_) t =
-     let marshal_selection_changed f _ =
+    let element_over : ([>`math_view],_) t =
+     let marshal_element_over f _ =
       function
-         [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
+         [GtkArgv.POINTER element; GtkArgv.INT state] ->
+	   f (gdome_element_option_of_boxed_option element) state
+       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_over"
      in
-      { name = "selection_changed"; classe = `math_view;
-        marshaller = marshal_selection_changed }
+      { name = "element_over"; classe = `math_view;
+        marshaller = marshal_element_over }
 
-    let element_changed : ([>`math_view],_) t =
-     let marshal_element_changed f _ =
+    let select_begin : ([>`math_view],_) t =
+     let marshal_select_begin f _ =
       function
-         [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_changed"
+         [GtkArgv.POINTER element; GtkArgv.INT state] ->
+	   f (gdome_element_option_of_boxed_option element) state
+       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_begin"
      in
-      { name = "element_changed"; classe = `math_view;
-        marshaller = marshal_element_changed }
+      { name = "select_begin"; classe = `math_view;
+        marshaller = marshal_select_begin }
+
+    let select_over : ([>`math_view],_) t =
+     let marshal_select_over f _ =
+      function
+         [GtkArgv.POINTER element; GtkArgv.INT state] ->
+	   f (gdome_element_option_of_boxed_option element) state
+       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_over"
+     in
+      { name = "select_over"; classe = `math_view;
+        marshaller = marshal_select_over }
+
+    let select_end : ([>`math_view],_) t =
+     let marshal_select_end f _ =
+      function
+         [GtkArgv.POINTER element; GtkArgv.INT state] ->
+	   f (gdome_element_option_of_boxed_option element) state
+       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_end"
+     in
+      { name = "select_end"; classe = `math_view;
+        marshaller = marshal_select_end }
+
+    let select_abort : ([>`math_view],_) t =
+     let marshal_select_abort f _ =
+      function
+         [] -> f ()
+       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_select_abort"
+     in
+      { name = "select_abort"; classe = `math_view;
+        marshaller = marshal_select_abort }
   end
 end