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

diff --git a/helm/DEVEL/lablgtkmathview/gtkMathView.ml b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
index fb2cfc4e0..5d400bc59 100644
--- a/helm/DEVEL/lablgtkmathview/gtkMathView.ml
+++ b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
@@ -120,7 +120,7 @@ module MathView = struct
          [GtkArgv.POINTER element] -> f (gdome_element_of_boxed_option element)
        | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
      in
-      { name = "clicked"; marshaller = marshal_clicked }
+      { name = "clicked"; classe = `math_view; marshaller = marshal_clicked }
 
     let selection_changed : ([>`math_view],_) t =
      let marshal_selection_changed f _ =
@@ -128,7 +128,8 @@ module MathView = struct
          [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
        | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
      in
-      { name = "selection_changed"; marshaller = marshal_selection_changed }
+      { name = "selection_changed"; classe = `math_view;
+        marshaller = marshal_selection_changed }
 
     let element_changed : ([>`math_view],_) t =
      let marshal_element_changed f _ =
@@ -136,6 +137,7 @@ module MathView = struct
          [GtkArgv.POINTER element] -> f (gdome_element_option_of_boxed_option element)
        | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_changed"
      in
-      { name = "element_changed"; marshaller = marshal_element_changed }
+      { name = "element_changed"; classe = `math_view;
+        marshaller = marshal_element_changed }
   end
 end