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