steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.cocoa.views: spacing.

db4
John Benediktsson 2013-03-29 14:47:53 -07:00
parent fe952b2f8e
commit 39dc58a5a8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/backend/cocoa/views/views.factor
View File

@ -152,6 +152,7 @@ CLASS: FactorView < NSOpenGLView NSTextInput
METHOD: void prepareOpenGL [ METHOD: void prepareOpenGL [
os-version { 10 7 0 } after=? [ os-version { 10 7 0 } after=? [
self "setWantsBestResolutionOpenGLSurface:" self "setWantsBestResolutionOpenGLSurface:"
selector/sender 1 swap execute( x x x -- ) selector/sender 1 swap execute( x x x -- )
@ -160,6 +161,7 @@ CLASS: FactorView < NSOpenGLView NSTextInput
dup 1.0 > [ dup 1.0 > [
gl-scale-factor set-global t retina? set-global gl-scale-factor set-global t retina? set-global
] [ drop ] if ] [ drop ] if
] when ] when
] ]