ui.backend.cocoa.views: only set gl-scale-factor if > 1.0.

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index ad49c67bb5ef32107065fbd00895d91be55785b2..82b44d22acd581e91c76984d9ad4cc0819e3dd02 100644 (file)
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -307,9 +307,9 @@ CLASS: FactorView < NSOpenGLView NSTextInput
 
     METHOD: void prepareOpenGL [
         self 1 -> setWantsBestResolutionOpenGLSurface:
-        self -> backingScaleFactor
-        [ gl-scale-factor set-global ]
-        [ 1.0 > retina? set-global ] bi
+        self -> backingScaleFactor dup 1.0 > [
+            gl-scale-factor set-global t retina? set-global
+        ] [ drop ] if
     ]
 
     ! Initialization