Window creation/X11: Difference between revisions

=={{header|FreeBASIC}}==

=== Xlib ===

{{libheader|Xlib}}

<syntaxhighlight lang="vbnet">#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)</syntaxhighlight>