fix x11 backend bugs
parent
cc244cb672
commit
a0c8d0ae9e
|
@ -7,7 +7,7 @@ namespaces opengl sequences strings x11 x11.xlib x11.events x11.xim
|
||||||
x11.glx x11.clipboard x11.constants x11.windows x11.io
|
x11.glx x11.clipboard x11.constants x11.windows x11.io
|
||||||
io.encodings.string io.encodings.ascii io.encodings.utf8 combinators
|
io.encodings.string io.encodings.ascii io.encodings.utf8 combinators
|
||||||
command-line math.vectors classes.tuple opengl.gl threads
|
command-line math.vectors classes.tuple opengl.gl threads
|
||||||
math.rectangles environment ascii
|
math.rectangles environment ascii literals
|
||||||
ui.pixel-formats ui.pixel-formats.private ;
|
ui.pixel-formats ui.pixel-formats.private ;
|
||||||
IN: ui.backend.x11
|
IN: ui.backend.x11
|
||||||
|
|
||||||
|
@ -59,8 +59,8 @@ M: x11-ui-backend (free-pixel-format)
|
||||||
M: x11-ui-backend (pixel-format-attribute)
|
M: x11-ui-backend (pixel-format-attribute)
|
||||||
[ dpy get ] 2dip
|
[ dpy get ] 2dip
|
||||||
[ handle>> ] [ >glx-visual ] bi*
|
[ handle>> ] [ >glx-visual ] bi*
|
||||||
[ drop f ] [
|
[ 2drop f ] [
|
||||||
first [ dpy get ] 2dip
|
first
|
||||||
0 <int> [ glXGetConfig drop ] keep *int
|
0 <int> [ glXGetConfig drop ] keep *int
|
||||||
] if-empty ;
|
] if-empty ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue