X11::Resolution - Get information on the current resolution for X.
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";
This initiates the object.
my $xres=X11::Resolution->new();
if($xres->{error}){
print "Error:".$xres->{error}.": ".$xres->{errorString}."\n";
}
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";
This is a internal function and should not be called.
No enviromental variable 'DISPLAY' listed.
Zane C. Bowers, "<vvelox at vvelox.net>"
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.
You can find documentation for this module with the perldoc command.
perldoc X11::Resolution
You can also look for information at:
- RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=X11-Resolution>
- AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/X11-Resolution>
- CPAN Ratings
<http://cpanratings.perl.org/d/X11-Resolution>
- Search CPAN
<http://search.cpan.org/dist/X11-Resolution/>
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.