Window creation/X11: Difference between revisions
m
→{{header|Perl 6}}: remove a debugging line
m (→{{header|Perl 6}}: tidying a bit) |
m (→{{header|Perl 6}}: remove a debugging line) |
||
Line 515:
loop {
XNextEvent($display, $e);
if $e.type == 12 {
XFillRectangle($display, $window, XDefaultGC($display, $screen), 20, 20, 10, 10);
|