make-notification ( title text -- notification )

Vocabulary

notifications.macos

Inputs

title	an object
text	an object

Outputs

notification

an object

Definition

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

IN: notifications.macos

:: make-notification ( title text -- notification )
    NSUserNotification { id { id SEL } } "alloc" send
    { id { id SEL } } "init" send
    { id { id SEL } } "autorelease" send
    [ title <NSString> { void { id SEL id } } "setTitle:" send ]
    keep [
        text <NSString>
        { void { id SEL id } } "setInformativeText:" send
    ] keep ;