notifications.macos: Notifications for macOS.

They don't seem to always pop up. I think the delegate needs to be set to respond to a message to always show the notification.
travis-windows
Doug Coleman 2018-12-16 11:35:12 -06:00
parent f879a012c5
commit 00fd59aa39
3 changed files with 21 additions and 0 deletions

View File

@ -0,0 +1 @@
Doug Coleman

View File

@ -0,0 +1,19 @@
! Copyright (C) 2018 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: cocoa cocoa.application cocoa.classes kernel locals ;
IN: notifications.macos
IMPORT: NSUserNotification
IMPORT: NSUserNotificationCenter
:: make-notification ( title text -- notification )
NSUserNotification -> alloc -> init -> autorelease
[ title <NSString> -> setTitle: ] keep
[ text <NSString> -> setInformativeText: ] keep ;
: send-notification ( title text -- )
make-notification
[
NSUserNotificationCenter -> defaultUserNotificationCenter
] dip
-> deliverNotification: ;

View File

@ -0,0 +1 @@
macosx