ui.backend.cocoa.views: simplify and add os version check.

db4
John Benediktsson 2013-03-29 14:29:41 -07:00
parent 1209d5287d
commit fe1bfe173b
2 changed files with 11 additions and 11 deletions

View File

@ -61,11 +61,10 @@ ERROR: no-objc-method name ;
: lookup-method ( selector -- method )
dup ?lookup-method [ ] [ no-objc-method ] ?if ;
: selector/sender ( selector method -- alien word )
[ <selector> selector ] [ message-senders get at ] bi* ;
: when-method ( receiver selector quot: ( receiver selector method -- ) -- )
[ dup ?lookup-method ] dip [ selector/sender ] prepose [ 2drop ] if* ; inline
: selector/sender ( selector -- alien word )
dup lookup-method
[ <selector> selector ]
[ message-senders get at ] bi* ;
MEMO: make-prepare-send ( selector method super? -- quot )
[

View File

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