diff --git a/uiutils.ml b/uiutils.ml
index 811d01b..3f8ee28 100644
--- a/uiutils.ml
+++ b/uiutils.ml
@@ -794,3 +794,20 @@ object (self)
 
   method zoom _ _ _ = ()
 end
+
+class type arg2 = object
+ method alwaysscrolly : bool
+ method button : int -> bool -> int -> int -> int -> Config.uioh
+ method display : unit
+ method eformsgs : bool
+ method infochanged : Config.infochange -> unit
+ method key : int -> int -> Config.uioh
+ method modehash : Config.keyhash
+ method motion : int -> int -> Config.uioh
+ method multiclick : int -> int -> int -> int -> Config.uioh
+ method pmotion : int -> int -> Config.uioh
+ method scroll : int -> int -> Config.uioh
+ method scrollph : int * float * float
+ method scrollpw : int * float * float
+ method zoom : float -> int -> int -> unit
+end
diff --git a/uiutils.mli b/uiutils.mli
index 5cde4ad..f6fcfd1 100644
--- a/uiutils.mli
+++ b/uiutils.mli
@@ -64,25 +64,23 @@ class listview :
     method updownlevel : int -> 'a
     method zoom : float -> int -> int -> unit
   end
-val coe : < alwaysscrolly : bool;
-    button : int -> bool -> int -> int -> int -> #Config.uioh;
-    display : unit; eformsgs : bool;
-    infochanged : Config.infochange -> unit;
-    key : int -> int -> #Config.uioh; modehash : Config.keyhash;
-    motion : int -> int -> #Config.uioh;
-    multiclick : int -> int -> int -> int -> #Config.uioh;
-    pmotion : int -> int -> #Config.uioh;
-    scroll : int -> int -> #Config.uioh;
-    scrollph : int * float * float; scrollpw : int * float * float;
-    zoom : float -> int -> int -> unit; .. > -> Config.uioh
-val setuioh : < alwaysscrolly : bool;
-    button : int -> bool -> int -> int -> int -> #Config.uioh;
-    display : unit; eformsgs : bool;
-    infochanged : Config.infochange -> unit;
-    key : int -> int -> #Config.uioh; modehash : Config.keyhash;
-    motion : int -> int -> #Config.uioh;
-    multiclick : int -> int -> int -> int -> #Config.uioh;
-    pmotion : int -> int -> #Config.uioh;
-    scroll : int -> int -> #Config.uioh;
-    scrollph : int * float * float; scrollpw : int * float * float;
-    zoom : float -> int -> int -> unit; .. > -> unit
+
+class type arg2 = object
+ method alwaysscrolly : bool
+ method button : int -> bool -> int -> int -> int -> Config.uioh
+ method display : unit
+ method eformsgs : bool
+ method infochanged : Config.infochange -> unit
+ method key : int -> int -> Config.uioh
+ method modehash : Config.keyhash
+ method motion : int -> int -> Config.uioh
+ method multiclick : int -> int -> int -> int -> Config.uioh
+ method pmotion : int -> int -> Config.uioh
+ method scroll : int -> int -> Config.uioh
+ method scrollph : int * float * float
+ method scrollpw : int * float * float
+ method zoom : float -> int -> int -> unit
+end
+
+val coe : #arg2 -> Config.uioh
+val setuioh : #arg2  -> unit