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

ui.backend.cocoa.views: make compatible with 10.6.

db4
John Benediktsson 2012-11-26 14:48:42 -08:00
parent f5f767e0dc
commit 5b5ee71a6a
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,9 +5,9 @@ arrays assocs cocoa cocoa.application cocoa.classes
cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types
cocoa.views combinators core-foundation.strings core-graphics cocoa.views combinators core-foundation.strings core-graphics
core-graphics.types core-text io.encodings.utf8 kernel locals core-graphics.types core-text io.encodings.utf8 kernel locals
math math.rectangles namespaces opengl sequences threads math math.order math.rectangles namespaces opengl sequences
ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures system-info threads ui.gadgets ui.gadgets.private
ui.private ; ui.gadgets.worlds ui.gestures ui.private ;
IN: ui.backend.cocoa.views IN: ui.backend.cocoa.views
: send-mouse-moved ( view event -- ) : send-mouse-moved ( view event -- )
@ -306,10 +306,12 @@ CLASS: FactorView < NSOpenGLView NSTextInput
METHOD: NSInteger conversationIdentifier [ self alien-address ] METHOD: NSInteger conversationIdentifier [ self alien-address ]
METHOD: void prepareOpenGL [ METHOD: void prepareOpenGL [
os-version { 10 7 0 } after=? [
self 1 -> setWantsBestResolutionOpenGLSurface: self 1 -> setWantsBestResolutionOpenGLSurface:
self -> backingScaleFactor dup 1.0 > [ self -> backingScaleFactor 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
] ]
! Initialization ! Initialization