diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor index 558c4f5f26..b3357c607a 100644 --- a/basis/cocoa/cocoa.factor +++ b/basis/cocoa/cocoa.factor @@ -16,6 +16,8 @@ SYMBOL: sent-messages SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ; +SYNTAX: ?-> scan-token [ remember-send ] [ <selector> drop ] bi ; + SYMBOL: super-sent-messages : remember-super-send ( selector -- ) diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor index 6a19093068..484c6f5319 100644 --- a/basis/ui/backend/cocoa/views/views.factor +++ b/basis/ui/backend/cocoa/views/views.factor @@ -151,6 +151,9 @@ CLASS: FactorView < NSOpenGLView NSTextInput METHOD: void prepareOpenGL [ + ?-> setWantsBestResolutionOpenGLSurface: + ?-> backingScaleFactor + self "setWantsBestResolutionOpenGLSurface:" lookup-selector -> respondsToSelector: c-bool> [