[Pdx-pm] "Final report" for Mozilla Foundation and TPF Perl 6 development grant

[chromatic]

On Friday 12 September 2008 01:50:26 Eric Wilhelm wrote:

> I was hoping to include a module, but I'm not readily finding an example
> and this is getting long anyway.

Test.pm, Xlib.pm (for everyone enlightened enough to use X.org or an 
equivalent).  See examples/nci/xlibtest.p6:

use Xlib;

say 'Hello';

say 'Display: ', Xlib::DisplayName();

my $display = Xlib::OpenDisplay('');

say 'Default screen: ', $display.DefaultScreen();

$display.hello();

my $white  = $display.WhitePixel(0);
my $root   = $display.RootWindow();
my $window = $display.CreateSimpleWindow($root, 0, 0, 600, 400, 0, 0, $white);
$window.StoreName("Hello, perl6");

Note that while Xlib calls functions in the xlib shared library, the bindings 
themselves require no one to write C code beyond what Parrot already 
provides.

-- c