lablgtk-2.14.1 and ocaml-3.12

[Thomas Klausner <wiz%NetBSD.org@localhost>]

Hi!

Since the ocaml update, lablgtk doesn't build.

I tried updating lablgtk to the latest release, 2.14.1, but I get:
Error: The implementation gAction.ml
       does not match the interface gAction.cmi:
       Class declarations do not match:
         class toggle_action :
           ([> `action | `toggleaction ] as 'a) Gtk.obj ->
           object
             val obj : 'a Gtk.obj
             method activate : unit -> unit
             method as_action : Gtk.action Gobject.obj
             method block_activate_from : GObj.widget -> unit
             method connect : toggle_action_signals
             method connect_accelerator : unit -> unit
             method connect_proxy : GObj.widget -> unit
             method disconnect_accelerator : unit -> unit
             method disconnect_proxy : GObj.widget -> unit
             method draw_as_radio : bool
             method get_active : bool
             method get_proxies : GObj.widget list
             method hide_if_empty : bool
             method icon_name : string
             method is_important : bool
             method is_sensitive : bool
             method is_visible : bool
             method label : string
             method name : string
             method private obj : 'a Gtk.obj
             method sensitive : bool
             method set_accel_group : Gtk.accel_group -> unit
             method set_accel_path : string -> unit
             method set_active : bool -> unit
             method set_draw_as_radio : bool -> unit
             method set_hide_if_empty : bool -> unit
             method set_icon_name : string -> unit
             method set_is_important : bool -> unit
             method set_label : string -> unit
             method set_sensitive : bool -> unit
             method set_short_label : string -> unit
             method set_stock_id : GtkStock.id -> unit
             method set_tooltip : string -> unit
             method set_visible : bool -> unit
             method set_visible_horizontal : bool -> unit
             method set_visible_vertical : bool -> unit
             method short_label : string
             method stock_id : GtkStock.id
             method toggled : unit -> unit
             method tooltip : string
             method unblock_activate_from : GObj.widget -> unit
             method visible : bool
             method visible_horizontal : bool
             method visible_vertical : bool
           end
       does not match
         class toggle_action :
           [> Gtk.toggle_action ] Gobject.obj ->
           object
             val obj : [> Gtk.toggle_action ] Gobject.obj
             method activate : unit -> unit
             method as_action : Gtk.action Gobject.obj
             method block_activate_from : GObj.widget -> unit
             method connect : toggle_action_signals
             method connect_accelerator : unit -> unit
             method connect_proxy : GObj.widget -> unit
             method disconnect_accelerator : unit -> unit
             method disconnect_proxy : GObj.widget -> unit
             method draw_as_radio : bool
             method get_active : bool
             method get_proxies : GObj.widget list
             method hide_if_empty : bool
             method icon_name : string
             method is_important : bool
             method is_sensitive : bool
             method is_visible : bool
             method label : string
             method name : string
             method sensitive : bool
             method set_accel_group : Gtk.accel_group -> unit
             method set_accel_path : string -> unit
             method set_active : bool -> unit
             method set_draw_as_radio : bool -> unit
             method set_hide_if_empty : bool -> unit
             method set_icon_name : string -> unit
             method set_is_important : bool -> unit
             method set_label : string -> unit
             method set_sensitive : bool -> unit
             method set_short_label : string -> unit
             method set_stock_id : GtkStock.id -> unit
             method set_tooltip : string -> unit
             method set_visible : bool -> unit
             method set_visible_horizontal : bool -> unit
             method set_visible_vertical : bool -> unit
             method short_label : string
             method stock_id : GtkStock.id
             method toggled : unit -> unit
             method tooltip : string
             method unblock_activate_from : GObj.widget -> unit
             method visible : bool
             method visible_horizontal : bool
             method visible_vertical : bool
           end
       The instance variable obj has type
         ([> `action | `toggleaction ] as 'a) Gtk.obj = 'a Gobject.obj
       but is expected to have type
         ([> Gtk.toggle_action ] as 'b) Gobject.obj
       Type 'a is not compatible with type 'b = [> `action |
       `toggleaction ]

How do I fix that?
 Thomas