ui.backend.cocoa.views: spacing.

2013-03-29 14:47:53 -07:00 · 2013-03-29 14:47:53 -07:00 · 39dc58a5a8
parent fe952b2f8e
commit 39dc58a5a8
1 changed files with 2 additions and 0 deletions
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@ -152,6 +152,7 @@ CLASS: FactorView < NSOpenGLView NSTextInput
    METHOD: void prepareOpenGL [

        os-version { 10 7 0 } after=? [
+
            self "setWantsBestResolutionOpenGLSurface:"
            selector/sender 1 swap execute( x x x -- )

@ -160,6 +161,7 @@ CLASS: FactorView < NSOpenGLView NSTextInput
            dup 1.0 > [
                gl-scale-factor set-global t retina? set-global
            ] [ drop ] if
+
        ] when
    ]