ui.backend.cocoa.views: prepareOpenGL can use ?-> syntax.

2018-03-13 11:09:55 -07:00 · 2018-03-13 11:09:55 -07:00 · ade70ab813
parent a4f6d43645
commit ade70ab813
1 changed files with 2 additions and 4 deletions
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@ -189,11 +189,9 @@ M: send-touchbar-command send-queued-gesture
        self SEL: setWantsBestResolutionOpenGLSurface:
        -> respondsToSelector: c-bool> [

-            self SEL: setWantsBestResolutionOpenGLSurface: 1
-            void f "objc_msgSend" { id SEL char } f alien-invoke
+            self 1 { void { id SEL char } } ?-> setWantsBestResolutionOpenGLSurface:

-            self SEL: backingScaleFactor
-            double f "objc_msgSend" { id SEL } f alien-invoke
+            self { double { id SEL } } ?-> backingScaleFactor

            dup 1.0 > [
                gl-scale-factor set-global t retina? set-global