set-timestamp-prop ( evt -- )

Vocabulary

x11.clipboard

Inputs

evt

an object

Outputs

None

Definition

USING: accessors alien.c-types alien.data kernel namespaces x11
x11.X x11.xlib ;

IN: x11.clipboard

: set-timestamp-prop ( evt -- )
    [ dpy get ] dip
    [ requestor>> ]
    [ property>> XA_TIMESTAMP 32 PropModeReplace ]
    [ time>> int <ref> ] tri 1 XChangeProperty drop ;