The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Tk::Xcursor - interface between Tk and the X cursor management library

SYNOPSIS

   use Tk::Xcursor;
   Tk::Xcursor::SupportsARGB($mw) or warn "This display does not support ARGB cursors";
   my $xcursor = Tk::Xcursor::LoadCursor("/path/to/xcursor");
   $xcursor->Set($tk_widget);

DESCRPTION

The Xcursor(3) library has support for advanced cursor management. Xcursor allows the definition of cursors with an alpha channel (ARGB), and it allows animated cursors. See xcursorgen(1) for a tool creating files suitable for Xcursor.

FUNCTIONS

Functions cannot be exported and have therefore be fully qualified.

SupportsARGB($tk_widget)

Return a true value if the $tk_widget's display supports ARGB cursors.

LoadCursor($path)

Load the Xcursor specified by $path and return a Tk::Xcursor object.

METHODS

Set($tk_widget)

Set the cursor to the given Tk widget.

COMPATIBILITY

This module works only on (modern) X11 systems.

AUTHOR

Slaven Rezic <srezic@cpan.org>

SEE ALSO

Xcursor(3), xcursorgen(1), Tk.