Data update

Task/Window-creation-X11/FreeBASIC/window-creation-x11.basic

@@ -0,0 +1,20 @@
+#include once "X11/Xlib.bi"
+
+Dim As Display Ptr dpy
+Dim As Window win
+Dim As GC gc
+Dim As XEvent ev
+
+dpy = XOpenDisplay(NULL)
+win = XCreateSimpleWindow(dpy, XDefaultRootWindow(dpy), 0, 0, 400, 300, 0, 0, 0)
+gc = XCreateGC(dpy, win, 0, NULL)
+XSelectInput(dpy, win, ExposureMask Or KeyPressMask)
+XMapWindow(dpy, win)
+
+While XNextEvent(dpy, @ev) = 0
+    If ev.type = Expose Then
+        XDrawString(dpy, win, gc, 200, 150, "Hello World", 11)
+    EndIf
+Wend
+
+XCloseDisplay(dpy)

Task/Window-creation-X11/Yabasic/window-creation-x11.basic

@@ -0,0 +1,11 @@
+open window 300,200
+
+text 150, 100, "Hello World"
+
+rectangle 10,10 to 90,90
+fill rectangle 40,40,60,60
+
+clear screen
+
+inkey$
+close window