X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FtexTermEditor.ml;h=c89fe04b2da80a94b53d0d38f4b425b1e040b354;hb=6d9de12a536ee4b9e369849ff7e9aa4ca464de9d;hp=0479388286f8698b93080b883017cb972647b516;hpb=133ceff9a6036150f71f3da27620c32187dd0a82;p=helm.git

diff --git a/helm/gTopLevel/texTermEditor.ml b/helm/gTopLevel/texTermEditor.ml
index 047938828..c89fe04b2 100644
--- a/helm/gTopLevel/texTermEditor.ml
+++ b/helm/gTopLevel/texTermEditor.ml
@@ -126,7 +126,7 @@ module Make(C:Disambiguate.Callbacks) =
           Mathml_editor.drop tex_editor
            (List.mem `CONTROL (GdkEvent.Key.state e))
          else if key = GdkKeysyms._v then
-           ignore (mmlwidget#misc#convert_selection "STRING" `PRIMARY);
+           ignore (mmlwidget#misc#convert_selection "STRING" Gdk.Atom.primary);
          let adj = mmlwidget#get_hadjustment in
           mmlwidget#thaw ;
           adj#set_value adj#upper ;