parent
fa2d49dd44
commit
5fd5ab6711
|
@ -5,9 +5,9 @@ arrays assocs cocoa cocoa.application cocoa.classes
|
|||
cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types
|
||||
cocoa.views combinators core-foundation.strings core-graphics
|
||||
core-graphics.types core-text io.encodings.utf8 kernel locals
|
||||
math math.order math.rectangles namespaces opengl sequences
|
||||
system-info threads ui.gadgets ui.gadgets.private
|
||||
ui.gadgets.worlds ui.gestures ui.private ;
|
||||
math math.rectangles namespaces opengl sequences threads
|
||||
ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures
|
||||
ui.private ;
|
||||
IN: ui.backend.cocoa.views
|
||||
|
||||
: send-mouse-moved ( view event -- )
|
||||
|
@ -306,12 +306,10 @@ CLASS: FactorView < NSOpenGLView NSTextInput
|
|||
METHOD: NSInteger conversationIdentifier [ self alien-address ]
|
||||
|
||||
METHOD: void prepareOpenGL [
|
||||
os-version { 10 7 0 } after=? [
|
||||
self 1 -> setWantsBestResolutionOpenGLSurface:
|
||||
self -> backingScaleFactor dup 1.0 > [
|
||||
gl-scale-factor set-global t retina? set-global
|
||||
] [ drop ] if
|
||||
] when
|
||||
self 1 -> setWantsBestResolutionOpenGLSurface:
|
||||
self -> backingScaleFactor dup 1.0 > [
|
||||
gl-scale-factor set-global t retina? set-global
|
||||
] [ drop ] if
|
||||
]
|
||||
|
||||
! Initialization
|
||||
|
|
Loading…
Reference in New Issue