?pasteboard-string ( pboard error -- str/f )

Vocabulary

cocoa.pasteboard

Inputs

pboard	an object
error	an object

Outputs

str/f

an object

Definition

USING: kernel ;

IN: cocoa.pasteboard

: ?pasteboard-string ( pboard error -- str/f )
    over pasteboard-string?
    [ swap pasteboard-string or? [ pasteboard-error ] unless ]
    [ nip pasteboard-error ] if ;