]> gitweb.factorcode.org Git - factor.git/commitdiff
fix x11 backend bugs
authorJoe Groff <arcata@gmail.com>
Sun, 3 May 2009 02:55:19 +0000 (21:55 -0500)
committerJoe Groff <arcata@gmail.com>
Sun, 3 May 2009 02:55:19 +0000 (21:55 -0500)
basis/ui/backend/x11/x11.factor

index 5192fa1075977e892abf18c207b6e798b732492c..76fd9fa30cd64b7543dbcadf7f42055f8c9c5b8d 100755 (executable)
@@ -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
 io.encodings.string io.encodings.ascii io.encodings.utf8 combinators
 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 ;
 IN: ui.backend.x11
 
@@ -59,8 +59,8 @@ M: x11-ui-backend (free-pixel-format)
 M: x11-ui-backend (pixel-format-attribute)
     [ dpy get ] 2dip
     [ handle>> ] [ >glx-visual ] bi*
-    [ drop f ] [
-        first [ dpy get ] 2dip
+    [ 2drop f ] [
+        first
         0 <int> [ glXGetConfig drop ] keep *int
     ] if-empty ;