1 ! Copyright (C) 2005, 2009 Eduardo Cavazos, Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types continuations io kernel namespaces
4 vocabs.loader x11.io x11.xlib ;
5 FROM: alien.c-types => c-bool> ;
13 LC_ALL "" setlocale [ "setlocale() failed" print flush ] unless
14 XSupportsLocale c-bool> [ "XSupportsLocale() failed" print flush ] unless ;
16 : flush-dpy ( -- ) dpy get XFlush drop ;
18 : x-atom ( string -- atom ) [ dpy get ] dip 0 XInternAtom ;
20 : check-display ( alien -- alien' )
21 [ "Cannot connect to X server - check $DISPLAY" throw ] unless* ;
23 : init-x ( display-string -- )
25 XOpenDisplay check-display dpy set-global
26 dpy get XDefaultScreen scr set-global
27 dpy get scr get XRootWindow root set-global
30 : close-x ( -- ) dpy get XCloseDisplay drop ;
32 : with-x ( display-string quot -- )
33 [ init-x ] dip [ close-x ] finally ; inline
35 { "x11" "io.backend.unix" } "x11.io.unix" require-when