15.4.1650  src/lib/x-kit/xclient/src/window/window-map-event-sink.pkg

## window-map-event-sink.pkg
#
# For the big picture see the imp dataflow diagrams in
#
#     src/lib/x-kit/xclient/src/window/xclient-ximps.pkg
#

# Compiled by:
#     src/lib/x-kit/xclient/xclient-internals.sublib



stipulate
    include package   threadkit;                                                                # threadkit                                     is from   src/lib/src/lib/thread-kit/src/core-thread-kit/threadkit.pkg
    #
#   package xet =  xevent_types;                                                                # xevent_types                                  is from   src/lib/x-kit/xclient/src/wire/xevent-types.pkg
herein


    # This port is implemented in:
    #
    #     src/lib/x-kit/xclient/src/window/xserver-ximp.pkg
    #
    package window_map_event_sink {
        #
        package s {
            #
            Mapped_State
              = HOSTWINDOW_IS_NOW_UNMAPPED
              | HOSTWINDOW_IS_NOW_MAPPED
              | FIRST_EXPOSE
              ;
        };

        Window_Map_Event_Sink
          =
          {
            put_value:   s::Mapped_State -> Void
          };
    };                                                                                          # package window_map_event_sink
end;