NAME

X11::GUITest::record - Perl implementation of the X11 record extension.

VERSION

0.15

DESCRIPTION

This Perl package uses the X11 record extension to capture events (from X-server) and requests (from X-client). Futher it is possible to capture mostly all client/server communitation (partially implemented)

For a full description of the extension see the Record Extension Protocol Specification of the X Consortium Standard (Version 11, Release 6.4)

FEATURES

- Recording mouse movements
- Recording key presses and key releases
- Getting information about created and closed windows
- Getting text from windows (if it is a Poly8 request)

SYNOPSIS

use X11::GUITest::record qw /:ALL :CONST/;
# Query version of the record extension
my $VERSION_EXT = QueryVersion;
print "Record extension version: $VERSION_EXT\n";
# Sets the record context to capture key presses and mouse movements
SetRecordContext(KeyPress, MotionNotify);
# Begin record
EnableRecordContext();
print "Recording..............\n";
sleep (5);
# Stop record
DisableRecordContext();
while ($data = GetRecordInfo())
{
print "Record: ". $data ->{TxtType} ." ";
print "X:". $data ->{X} . " Y:". $data ->{Y}
if ($data ->{TxtType} eq "MotionNotify");
print "Key:". $data ->{Key}
if ($data ->{TxtType} eq "KeyPress");
print "\n";
}

DEPENDENCIES

To use this module please activate the record extension in the config of the X-Server:

- under selection "Module"
Load "record"

Please make sure that the display variable is set.

FUNCTIONS

Parameters enclosed within [] are optional.

SetRecordContext category, type, [category, type..]

Specifies what the context has to record. It is possible to use the constant functions as:

SetRecordContext(KeyPress, KeyRelease, MotionNotify);

It is only possible to use DeliverdEvents and CoreRequests. To use other please choose one of the low level functions like SetDeviceEvents.

Some implemented events/requests are:

- KeyPress
- KeyRelease
- ButtonPress
- ButtonRelease
- MotionNotify
- X_CreateWindow
- X_DestroyWindow
- X_PolyText8
GetRecordInfo

To get one single record information from record queue.

This function will return 0 if the end of the queue is reached. Otherwise it will return a hash with the following values:

- {"Category"}: Category of the record (0 for event
1 for request)
- {"Type"} Type of the record in digits
- {"TxtType" } Type of the record in text
- {"Time"} Server timestamp
[- {"X"} X coordinte]
[- {"Y"} Y coordinte]
[- {"Text"} Text if it is a X_Polytext8]
[- {"Key"} Key if it is a key press or key release event]
[- {"WinID"} WindowID]
[- {"PWinID"} Parent WindowID]
GetAllRecordInfo

Similar to GetRecordInfo but returns an array of hashes with all record information.

DisableRecordContext

Disables the record context.