Window creation/X11: Difference between revisions
m
→{{header|Perl 6}}: forgot to use $msg
(put perl6 entry after perl 5) |
m (→{{header|Perl 6}}: forgot to use $msg) |
||
Line 528:
if $e.type == 12 {
XFillRectangle($display, $window, XDefaultGC($display, $screen), 20, 20, 10, 10);
XDrawString($display, $window, XDefaultGC($display, $screen), 10, 50,
}
elsif $e.type == 2 {
| |||