Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2010-05-23 21:34:37 -05:00
commit af2a5eb18d
5 changed files with 8 additions and 7 deletions
basis

View File

@ -7,7 +7,7 @@ ERROR: unknown-gl-platform ;
<< {
{ [ os windows? ] [ "opengl.gl.windows" ] }
{ [ os macosx? ] [ "opengl.gl.macosx" ] }
{ [ os unix? ] [ "opengl.gl.unix" ] }
{ [ os unix? ] [ "opengl.gl.x11" ] }
[ unknown-gl-platform ]
} cond use-vocab >>

View File

@ -1,5 +1,5 @@
USING: alien kernel x11.glx ;
IN: opengl.gl.unix
IN: opengl.gl.x11
: gl-function-context ( -- context ) glXGetCurrentContext ; inline
: gl-function-address ( name -- address ) glXGetProcAddressARB ; inline

View File

@ -1,14 +1,15 @@
! Copyright (C) 2005, 2010 Eduardo Cavazos and Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types ascii assocs classes.struct combinators
combinators.short-circuit command-line environment io.encodings.ascii
io.encodings.string io.encodings.utf8 kernel literals locals math
namespaces sequences specialized-arrays.instances.alien.c-types.uchar
USING: accessors alien.c-types alien.data ascii assocs classes.struct
combinators combinators.short-circuit command-line environment
io.encodings.ascii io.encodings.string io.encodings.utf8 kernel
literals locals math namespaces sequences specialized-arrays
strings ui ui.backend ui.clipboards ui.event-loop ui.gadgets
ui.gadgets.private ui.gadgets.worlds ui.gestures ui.pixel-formats
ui.pixel-formats.private ui.private x11 x11.clipboard x11.constants
x11.events x11.glx x11.io x11.windows x11.xim x11.xlib ;
FROM: unix.ffi => system ;
SPECIALIZED-ARRAY: uchar
IN: ui.backend.x11
SINGLETON: x11-ui-backend
@ -60,7 +61,7 @@ M: x11-ui-backend (pixel-format-attribute)
[ handle>> ] [ >glx-visual ] bi*
[ 2drop f ] [
first
{ int } [ glXGetConfig drop ] with-out-parameters
{ int } [ glXGetConfig drop ] [ ] with-out-parameters
] if-empty ;
CONSTANT: modifiers