macos: Update -> to send:
parent
434879a802
commit
3ac71a1317
|
@ -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
|
||||
] ;
|
||||
|
||||
|
|
|
@ -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: ;
|
||||
|
|
Loading…
Reference in New Issue