14 lines
398 B
Factor
14 lines
398 B
Factor
USING: alien.c-types cocoa cocoa.subclassing core-text kernel
|
|
math namespaces opengl ;
|
|
IN: ui.backend.cocoa.views.retina
|
|
|
|
CLASS: BaseFactorView < NSOpenGLView NSTextInput
|
|
[
|
|
METHOD: void prepareOpenGL [
|
|
self 1 -> setWantsBestResolutionOpenGLSurface:
|
|
self -> backingScaleFactor dup 1.0 > [
|
|
gl-scale-factor set-global t retina? set-global
|
|
] [ drop ] if
|
|
]
|
|
]
|