From fb7f53485a2d2e1f50ed79147de474bab270a51d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 21 Apr 2013 19:43:12 -0700 Subject: [PATCH] ui.backend.cocoa.views: set gl-scale-factor to f if 1.0. --- basis/ui/backend/cocoa/views/views.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor index cba6a9cda8..d1f4f31c0e 100644 --- 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 ]