Window creation/X11: Difference between revisions

{{broken|Perl 6}}

Notice that the mapping for XEvent requires a manual set up which depends on the number of bits of your machine. This is due to a current bug in NativeCall on MoarVM.

class Display is repr('CStruct') {}

class GC is repr('CStruct') {}

has int32 $.type; # for 32 bits machine

#has int $.type; # for 64 bits machine

sub XOpenDisplay(Str $name = ':0') returns Display is native('libX11') { * }

sub XDefaultScreen(Display $) returns int is native('libX11') { * }

sub XRootWindow(Display $, int $screen_number) returns int is native('libX11') { * }

sub XBlackPixel(Display $, int $screen_number) returns int is native('libX11') { * }

sub XWhitePixel(Display $, int $screen_number) returns int is native('libX11') { * }

Display $, int $parent_window, int $x, int $y,

int $width, int $height, int $border_width,

int $border, int $background

) returns int is native('libX11') { * }

sub XMapWindow(Display $, int $window) is native('libX11') { * }

sub XSelectInput(Display $, int $window, int $mask) is native('libX11') { * }

Display $, int $window, GC $, int $x, int $y, int $width, int $height

) is native('libX11') { * }

Display $, int $window, GC $, int $x, int $y, Str $, int $str_length

) is native('libX11') { * }

sub XDefaultGC(Display $, int $screen) returns GC is native('libX11') { * }

sub XNextEvent(Display $, XEvent $e) is native('libX11') { * }

sub XCloseDisplay(Display $) is native('libX11') { * }

XFillRectangle($display, $window, XDefaultGC($display, $screen), 20, 20, 10, 10);

XDrawString($display, $window, XDefaultGC($display, $screen), 10, 50, $msg, my int $ = $msg.chars);

last;