Window creation/X11: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: better introduction) |
(→{{header|Perl 6}}: allocate argument to a native int in order to avoid error) |
||
Line 529: | Line 529: | ||
if $e.type == 12 { |
if $e.type == 12 { |
||
XFillRectangle($display, $window, XDefaultGC($display, $screen), 20, 20, 10, 10); |
XFillRectangle($display, $window, XDefaultGC($display, $screen), 20, 20, 10, 10); |
||
XDrawString($display, $window, XDefaultGC($display, $screen), 10, 50, $msg, $msg.chars); |
XDrawString($display, $window, XDefaultGC($display, $screen), 10, 50, $msg, my int $ = $msg.chars); |
||
} |
} |
||
elsif $e.type == 2 { |
elsif $e.type == 2 { |