/usr/lib/x86_64-linux-gnu/perl5/5.24/X11/XCB/Sizehints.pm is in libx11-xcb-perl 0.16-1+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | package X11::XCB::Sizehints;
use Mouse;
use Data::Dumper;
use X11::XCB qw(:all);
use X11::XCB::Sizehints::Aspect;
use v5.10;
has 'window' => (is => 'ro', isa => 'Int');
has '_conn' => (is => 'ro', required => 1);
has 'aspect' => (is => 'rw', isa => 'X11::XCB::Sizehints::Aspect', trigger => \&_update_aspect);
sub _update_aspect {
my $self = shift;
my $aspect = $self->aspect;
my $hints = X11::XCB::ICCCM::SizeHints->new;
$hints->set_aspect($aspect->min_num, $aspect->min_den,
$aspect->max_num, $aspect->max_den);
X11::XCB::ICCCM::set_wm_size_hints($self->_conn, $self->window, ATOM_WM_NORMAL_HINTS, $hints);
}
=head1 NAME
X11::XCB::Sizehints - size hints attribute for an X11::XCB::Window
=head1 METHODS
=cut
1
# vim:ts=4:sw=4:expandtab
|