From f82a89e96fa19e3097813b6baced8a4a228d10ed Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Sun, 7 Feb 2021 02:08:59 -0800 Subject: [PATCH] Fix xlib. --- ueforth/posix/xlib.fs | 4 ++++ ueforth/posix/xlib_test.fs | 2 ++ 2 files changed, 6 insertions(+) diff --git a/ueforth/posix/xlib.fs b/ueforth/posix/xlib.fs index 260284d..e4f50fb 100644 --- a/ueforth/posix/xlib.fs +++ b/ueforth/posix/xlib.fs @@ -1,4 +1,6 @@ ( Bindings for Xlib ) +also posix +vocabulary x11 also x11 definitions z" libX11.so" shared-library xlib @@ -96,3 +98,5 @@ xevent ClientMessage xevent MappingNotify xevent GenericEvent drop + +only forth definitions diff --git a/ueforth/posix/xlib_test.fs b/ueforth/posix/xlib_test.fs index 53bb3ab..973d125 100644 --- a/ueforth/posix/xlib_test.fs +++ b/ueforth/posix/xlib_test.fs @@ -1,5 +1,7 @@ include posix/xlib.fs +also x11 + z" :0" XOpenDisplay constant display display XDefaultScreen constant screen display screen XBlackPixel constant black