File "./main.ml", line 1664, characters 12-52:
1664 |         coe {< m_active = active; m_first = first >}
                   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This expression has type
         < 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;
           nextcurlevel : int -> 'a; pmotion : int -> int -> Config.uioh;
           scroll : int -> int -> Config.uioh;
           scrollph : int * float * float; scrollpw : int * float * float;
           updownlevel : int -> 'a; zoom : float -> int -> int -> unit; .. >
         as 'a
       but an expression was expected of type
         #Uiutils.arg2 as 'b =
           < alwaysscrolly : bool;
             button : 'c. int -> bool -> int -> int -> int -> #Config.uioh;
             display : unit; eformsgs : bool;
             infochanged : Config.infochange -> unit;
             key : 'd. int -> int -> #Config.uioh; modehash : Config.keyhash;
             motion : 'e. int -> int -> #Config.uioh;
             multiclick : 'f. int -> int -> int -> int -> #Config.uioh;
             pmotion : 'g. int -> int -> #Config.uioh;
             scroll : 'h. int -> int -> #Config.uioh;
             scrollph : int * float * float; scrollpw : int * float * float;
             zoom : float -> int -> int -> unit; .. >
       Type
         Config.uioh =
           < 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 >
       is not compatible with type #Config.uioh 
       Types for method button are incompatible
ocamlc -I build -I build/wsi/x11 -I build/lablGL -g -strict-sequence -strict-formats -alert @all -warn-error @A -c -o build/main.cmo ./main.ml failed