do-service ( pboard error quot -- )

Vocabulary

ui.backend.cocoa.tools

Inputs

pboard	an object
error	an object
quot	an object

Outputs

None

Definition

USING: cocoa.pasteboard combinators kernel ;

IN: ui.backend.cocoa.tools

:: do-service ( pboard error quot -- )
    pboard error ?pasteboard-string dup
    [ quot ( string -- result/f ) call-effect ] when
    [ pboard set-pasteboard-string ] when* ;