15.4.1611  src/lib/x-kit/xclient/src/window/client-to-window-watcher.pkg

## client-to-window-watcher.pkg
#
# Requests from app/widget code to the atom-ximp.

# 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 xt  = xtypes;                                                                       # xtypes                is from   src/lib/x-kit/xclient/src/wire/xtypes.pkg
    package ts  =  xserver_timestamp;                                                           # xserver_timestamp     is from   src/lib/x-kit/xclient/src/wire/xserver-timestamp.pkg
herein


    # This port is implemented in:
    #
    #     src/lib/x-kit/xclient/src/window/window-watcher-ximp.pkg
    #
    package client_to_window_watcher {
        #
        Property_Change = NEW_VALUE | DELETED;                                                  # Observed changes to property values 

        Client_To_Window_Watcher
          =
          { unused_property:  xt::Window_Id -> xt::Atom,                                        # Generate a property on the specified window that is guaranteed to be unique.
            #
            watch_property                                                                      # Get an event for monitoring changes to a property's state.
                :
                ( xt::Atom,
                  xt::Window_Id,
                  Bool,
                  (Property_Change, ts::Xserver_Timestamp) -> Void
                )
                ->
                Void
          };
    };                                                                                          # package window_propert_port
end;