register-services ( -- )

Vocabulary

ui.backend.cocoa.tools

Inputs

None

Outputs

None

Definition

USING: alien.c-types cocoa.application cocoa.classes
cocoa.messages cocoa.runtime ;

IN: ui.backend.cocoa.tools

: register-services ( -- )
    NSApp FactorServiceProvider { id { id SEL } } "alloc" send
    { id { id SEL } } "init" send
    { void { id SEL id } } "setServicesProvider:" send ;