functor (FRP : FRP->
  functor (M : M->
    sig
      type 'a t = 'LablgtkReact.M.t
      type 'a action = 'LablgtkReact.M.action
      type id
      type 'a callback =
          bool ->
          (LablgtkReact.Core.id * 'a) LablgtkReact.Core.t ->
          'LablgtkReact.Core.action -> unit
      type 'a container_link =
          (LablgtkReact.Core.id * 'a) LablgtkReact.Core.t ->
          'LablgtkReact.Core.action -> unit
      class ['a] core :
        ?container_link:'LablgtkReact.Core.container_link ->
        unit ->
        object
          method connect : 'LablgtkReact.Core.callback -> unit
          method send : 'LablgtkReact.Core.action -> unit
          method set_container_link :
            'LablgtkReact.Core.container_link option -> unit
        end
    end