| X11-Resolution documentation | Contained in the X11-Resolution distribution. |
X11::Resolution - Get information on the current resolution for X.
Version 0.0.0
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.
None existant display.
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:
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.
| X11-Resolution documentation | Contained in the X11-Resolution distribution. |
package X11::Resolution; use warnings; use strict; use X11::Protocol;
our $VERSION = '0.0.0';
sub new{ my $self = {error=>undef, errorString=>''}; if (!defined($ENV{DISPLAY})) { warn('X11-Resolution new:1: No enviromentail variable "DISPLAY" defined'); $self->{error}=1; $self->{errorString}='No enviromentail variable "DISPLAY" defined.'; return $self; } $self->{x}=X11::Protocol->new(); bless $self; return $self }
sub getResolution{ my $self=$_[0]; my $display=$_[1]; if (!defined($display)) { $display=$ENV{DISPLAY}; $display=~s/.*\.//g; } if (!defined($self->{x}->{'screens'}[$display])) { warn('X11-Resolution getResolution:2: '); } my $x=$self->{x}->{'screens'}[$display]{'width_in_pixels'}; my $y=$self->{x}->{'screens'}[$display]{'height_in_pixels'}; return $x, $y; }
#blanks the error flags sub errorBlank{ my $self=$_[0]; $self->{error}=undef; $self->{errorString}=''; return 1; };
1; # End of X11::Resolution