init-clipboard ( -- )

Vocabulary

ui.backend.cocoa

Inputs

None

Outputs

None

Definition

USING: cocoa.classes cocoa.messages cocoa.runtime namespaces
ui.clipboards ;

IN: ui.backend.cocoa

: init-clipboard ( -- )
    NSPasteboard { id { id SEL } } "generalPasteboard" send
    <pasteboard> clipboard set-global
    <clipboard> selection set-global ;