selection-from-event ( event window -- string )

Vocabulary

x11.clipboard

Inputs

event	an object
window	an object

Outputs

string

an object

Definition

USING: accessors kernel ;

IN: x11.clipboard

: selection-from-event ( event window -- string )
    swap property>> 0 =
    [ drop f ] [ selection-property 1 window-property ] if ;