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

ui.backend.x11: fix load error

db4
Slava Pestov 2010-05-23 22:08:24 -04:00
parent c8af0e4d5c
commit cd5c1ab499
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/ui/backend/x11/x11.factor
View File

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