send-notify ( evt prop -- )

Vocabulary

x11.clipboard

Inputs

evt	an object
prop	an object

Outputs

None

Definition

USING: accessors kernel namespaces x11 x11.X x11.xlib ;

IN: x11.clipboard

: send-notify ( evt prop -- )
    XSelectionEvent new SelectionNotify >>type swap >>property
    over display>> >>display over requestor>> >>requestor
    over selection>> >>selection over target>> >>target
    over time>> >>time [ [ dpy get ] dip requestor>> 0 0 ] dip
    XSendEvent drop flush-dpy ;