Window creation/X11: Difference between revisions
m
→{{header|Perl 6}}: tidying a bit
(→{{header|Perl 6}}: allocate argument to a native int in order to avoid error) |
m (→{{header|Perl 6}}: tidying a bit) |
||
Line 469:
class Display is repr('CStruct') {}
class GC is repr('CStruct') {}
class XEvent is repr('CStruct') {
has int32 $.type; # for 32 bits machine
#has int $.type; # for 64 bits machine
Line 489:
sub XSelectInput(Display $, int $window, int $mask) is native('libX11') { * }
sub XFillRectangle(
Display $, int $window, GC $, int $x, int $y, int $width, int $height
) is native('libX11') { * }
sub XDrawString(
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
▲sub XCloseDisplay(Display $) is native('libX11') { * }
my Display $display = XOpenDisplay()
Line 535 ⟶ 524:
}
}
XCloseDisplay($display);</lang>
=={{header|PicoLisp}}==
| |||