macos: Update -> to send:

modern-harvey3
Doug Coleman 2018-12-16 13:08:43 -06:00
parent 434879a802
commit 3ac71a1317
2 changed files with 6 additions and 6 deletions

View File

@ -198,7 +198,7 @@ M: send-touchbar-command send-queued-gesture
cached-lines get-global clear-assoc
] [ drop ] if
self -> update
self send: update
] when
] ;

View File

@ -7,13 +7,13 @@ IMPORT: NSUserNotification
IMPORT: NSUserNotificationCenter
:: make-notification ( title text -- notification )
NSUserNotification -> alloc -> init -> autorelease
[ title <NSString> -> setTitle: ] keep
[ text <NSString> -> setInformativeText: ] keep ;
NSUserNotification send: alloc send: init send: autorelease
[ title <NSString> send: \setTitle: ] keep
[ text <NSString> send: \setInformativeText: ] keep ;
: send-notification ( title text -- )
make-notification
[
NSUserNotificationCenter -> defaultUserNotificationCenter
NSUserNotificationCenter send: defaultUserNotificationCenter
] dip
-> deliverNotification: ;
send: \deliverNotification: ;