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

x11.*: auto string to alien conversion for XOpenDisplay

char-rename
Björn Lindqvist 2016-08-24 05:32:44 +02:00
parent acb4dec55d
commit 36966c1a7d
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/x11/x11.factor
View File

@ -23,7 +23,6 @@ SYMBOL: root
: init-x ( display-string -- ) : init-x ( display-string -- )
init-locale init-locale
dup [ ascii string>alien ] when
XOpenDisplay check-display dpy set-global XOpenDisplay check-display dpy set-global
dpy get XDefaultScreen scr set-global dpy get XDefaultScreen scr set-global
dpy get scr get XRootWindow root set-global dpy get scr get XRootWindow root set-global

4
basis/x11/xlib/xlib.factor
View File

@ -13,7 +13,7 @@
! !
! https://www.x.org/releases/X11R7.6/doc/libX11/specs/libX11/libX11.html ! https://www.x.org/releases/X11R7.6/doc/libX11/specs/libX11/libX11.html
USING: accessors alien.c-types alien.data alien.syntax classes.struct USING: accessors alien.c-types alien.data alien.syntax classes.struct
kernel literals math x11.syntax x11.X ; io.encodings.ascii kernel literals math x11.X x11.syntax ;
FROM: alien.c-types => short ; FROM: alien.c-types => short ;
IN: x11.xlib IN: x11.xlib
@ -51,7 +51,7 @@ STRUCT: Display
{ free_funcs void* } { free_funcs void* }
{ fd int } ; { fd int } ;
X-FUNCTION: Display* XOpenDisplay ( void* display_name ) X-FUNCTION: Display* XOpenDisplay ( c-string[ascii] display_name )
! 2.2 Obtaining Information about the Display, Image Formats, or Screens ! 2.2 Obtaining Information about the Display, Image Formats, or Screens