X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtkmathview%2FgtkMathView.ml;h=dbb1463b7b825095078e9957f7957c7241969b32;hb=56b68e877e6eb517c3efba7d9485947e940f7785;hp=ef2df07224f1b11ed4e256a046f0102f562da3f9;hpb=b689a2381eedeadd6a23f74348b4322c5f0085d6;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/gtkMathView.ml b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
index ef2df0722..dbb1463b7 100644
--- a/helm/DEVEL/lablgtkmathview/gtkMathView.ml
+++ b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
@@ -108,32 +108,62 @@ module MathView = struct
   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_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 press_move : ([>`math_view],_) t =
-     let marshal_press_move f _ =
+    let element_over : ([>`math_view],_) t =
+     let marshal_element_over f _ =
       function
-         [GtkArgv.POINTER first; GtkArgv.POINTER last] ->
-	   f (gdome_element_option_of_boxed_option first)
-	     (gdome_element_option_of_boxed_option last)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_press_move"
+         [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 = "press_move"; classe = `math_view;
-        marshaller = marshal_press_move }
+      { 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