1#!/usr/bin/perl -w
2use strict;
3use X11::Protocol;
4$ENV{DISPLAY}=":0";
5
6# uncomment this to run the ### lines
7use Smart::Comments;
8
9my $X = X11::Protocol->new;
10my $depth = $X->root_depth;
11
12my ($major_opcode, $first_event, $first_error) = $X->QueryExtension('RENDER');
13### $major_opcode
14### $first_event
15### $first_error
16
17{
18  local $^W = 0;
19  if (! $X->init_extension('RENDER')) {
20    print "RENDER extension not available on the server\n";
21    exit 1;
22  }
23}
24
25
26
27