diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor index 82cf7b8525..4aa84c2cee 100644 --- a/basis/ui/backend/cocoa/views/views.factor +++ b/basis/ui/backend/cocoa/views/views.factor @@ -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 ] ; diff --git a/extra/notifications/macos/macos.factor b/extra/notifications/macos/macos.factor index a2345f7b87..aa112d5e39 100644 --- a/extra/notifications/macos/macos.factor +++ b/extra/notifications/macos/macos.factor @@ -7,13 +7,13 @@ IMPORT: NSUserNotification IMPORT: NSUserNotificationCenter :: make-notification ( title text -- notification ) - NSUserNotification -> alloc -> init -> autorelease - [ title -> setTitle: ] keep - [ text -> setInformativeText: ] keep ; + NSUserNotification send: alloc send: init send: autorelease + [ title send: \setTitle: ] keep + [ text send: \setInformativeText: ] keep ; : send-notification ( title text -- ) make-notification [ - NSUserNotificationCenter -> defaultUserNotificationCenter + NSUserNotificationCenter send: defaultUserNotificationCenter ] dip - -> deliverNotification: ; + send: \deliverNotification: ;