ui.backend.cocoa.views: set gl-scale-factor to f if 1.0.

2013-04-21 19:43:12 -07:00 · 2013-04-21 19:43:12 -07:00 · fb7f53485a
parent 5512294075
commit fb7f53485a
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@ -397,7 +397,7 @@ CLASS: FactorWindowDelegate < NSObject
        notification -> object dup SEL: backingScaleFactor
        -> respondsToSelector: c-bool> [
            SEND: backingScaleFactor execute( x x -- x )
-            [ gl-scale-factor set-global ]
+            [ [ 1.0 > ] keep f ? gl-scale-factor set-global ]
            [ 1.0 > retina? set-global ] bi
        ] [ drop ] if
    ]