The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
X11-Resolution-0.0.0
River stage zero No dependents
++
/ X11::Resolution

NAME

X11::Resolution - Get information on the current resolution for X.

VERSION

Version 0.0.0

SYNOPSIS

    use X11::Resolution;

    my $xres=X11::Resolution->new();
    if($xres->{error}){
         print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
    }

    #gets it currently the current screen
    my ($x, $y)=$xres->getResolution;
    if($xres->{error}){
         print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
    }
    print "x=".$x."\ny=".$y."\n";

    #gets it for screen zero
    my ($x, $y)=$xres->getResolution(0);
    if($xres->{error}){
         print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
    }
    print "x=".$x."\ny=".$y."\n";

methodes

new

This initiates the object.

    my $xres=X11::Resolution->new();
    if($xres->{error}){
         print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
    }

getResolution

This fetches the resolution for the current or a given screen.

    #gets it currently the current screen
    my ($x, $y)=$xres->getResolution;
    if($xres->{error}){
         print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
    }
    print "x=".$x."\ny=".$y."\n";

    #gets it for screen zero
    my ($x, $y)=$xres->getResolution(0);
    if($xres->{error}){
         print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
    }
    print "x=".$x."\ny=".$y."\n";

errorBlank

This is a internal function and should not be called.

ERROR CODES

1

No enviromental variable 'DISPLAY' listed.

2

None existant display.

AUTHOR

Zane C. Bowers, <vvelox at vvelox.net>

BUGS

Please report any bugs or feature requests to bug-x11-resolution at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=X11-Resolution. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc X11::Resolution

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009 Zane C. Bowers, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.