send-notification ( title text -- )

Vocabulary

notifications.macos

Inputs

title	an object
text	an object

Outputs

None

Definition

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

IN: notifications.macos

: send-notification ( title text -- )
    make-notification [
        NSUserNotificationCenter
        { id { id SEL } } "defaultUserNotificationCenter" send
    ] dip { void { id SEL id } } "deliverNotification:" send ;