r64941 - in /trunk/libx11-xcb-perl: ./ debian/ lib/X11/ lib/X11/XCB/ lib/X11/XCB/Sizehints/ t/
mstapelberg-guest at users.alioth.debian.org
mstapelberg-guest at users.alioth.debian.org
Mon Nov 15 19:41:40 UTC 2010
Author: mstapelberg-guest
Date: Mon Nov 15 19:41:31 2010
New Revision: 64941
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64941
Log:
new version (0.01~007)
Added:
trunk/libx11-xcb-perl/INSTALL.SKIP
- copied unchanged from r64940, branches/upstream/libx11-xcb-perl/current/INSTALL.SKIP
trunk/libx11-xcb-perl/lib/X11/XCB/Sizehints/
- copied from r64940, branches/upstream/libx11-xcb-perl/current/lib/X11/XCB/Sizehints/
trunk/libx11-xcb-perl/lib/X11/XCB/Sizehints.pm
- copied unchanged from r64940, branches/upstream/libx11-xcb-perl/current/lib/X11/XCB/Sizehints.pm
Removed:
trunk/libx11-xcb-perl/pm_to_blib
trunk/libx11-xcb-perl/t/02-window.t
Modified:
trunk/libx11-xcb-perl/MANIFEST
trunk/libx11-xcb-perl/META.yml
trunk/libx11-xcb-perl/XCB_util.inc
trunk/libx11-xcb-perl/_GenerateMyXS.pm
trunk/libx11-xcb-perl/debian/changelog
trunk/libx11-xcb-perl/lib/X11/XCB.pm.in
trunk/libx11-xcb-perl/lib/X11/XCB/Atom.pm
trunk/libx11-xcb-perl/lib/X11/XCB/Color.pm
trunk/libx11-xcb-perl/lib/X11/XCB/Connection.pm
trunk/libx11-xcb-perl/lib/X11/XCB/Screen.pm
trunk/libx11-xcb-perl/lib/X11/XCB/Window.pm
trunk/libx11-xcb-perl/t/01-atom.t
Modified: trunk/libx11-xcb-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/MANIFEST?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/MANIFEST (original)
+++ trunk/libx11-xcb-perl/MANIFEST Mon Nov 15 19:41:31 2010
@@ -11,23 +11,24 @@
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
inc/Module/Install/XSUtil.pm
+INSTALL.SKIP
lib/X11/XCB.pm.in
lib/X11/XCB/Atom.pm
lib/X11/XCB/Color.pm
lib/X11/XCB/Connection.pm
lib/X11/XCB/Rect.pm
lib/X11/XCB/Screen.pm
+lib/X11/XCB/Sizehints.pm
+lib/X11/XCB/Sizehints/Aspect.pm
lib/X11/XCB/Window.pm
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
META.yml
-pm_to_blib
ppport.h
README
t/01-atom.t
t/02-screens.t
-t/02-window.t
t/03-color.t
t/04-window.t
t/X11-XCB.t
Modified: trunk/libx11-xcb-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/META.yml?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/META.yml (original)
+++ trunk/libx11-xcb-perl/META.yml Mon Nov 15 19:41:31 2010
@@ -31,4 +31,4 @@
perl: 5.10.0
resources:
license: http://dev.perl.org/licenses/
-version: 0.01_006
+version: 0.01_007
Modified: trunk/libx11-xcb-perl/XCB_util.inc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/XCB_util.inc?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/XCB_util.inc (original)
+++ trunk/libx11-xcb-perl/XCB_util.inc Mon Nov 15 19:41:31 2010
@@ -33,3 +33,42 @@
X11_XCB_ICCCM_WMHints * hints
CODE:
xcb_set_wm_hints(conn->conn, window, hints);
+
+void
+set_wm_size_hints(conn, window, property, hints)
+ XCBConnection * conn
+ int window
+ int property
+ X11_XCB_ICCCM_SizeHints * hints
+ CODE:
+ xcb_set_wm_size_hints(conn->conn, window, property, hints);
+
+
+
+
+MODULE = X11::XCB PACKAGE = X11::XCB::ICCCM::SizeHints
+
+PROTOTYPES: ENABLE
+
+X11_XCB_ICCCM_SizeHints *
+new(self)
+ char *self
+ PREINIT:
+ X11_XCB_ICCCM_SizeHints *buf;
+ CODE:
+ New(0, buf, 1, X11_XCB_ICCCM_SizeHints);
+ RETVAL = buf;
+ OUTPUT:
+ RETVAL
+
+MODULE = X11::XCB PACKAGE = X11_XCB_ICCCM_SizeHintsPtr
+
+void
+set_aspect(self, min_aspect_num, min_aspect_den, max_aspect_num, max_aspect_den)
+ X11_XCB_ICCCM_SizeHints * self
+ int min_aspect_num
+ int min_aspect_den
+ int max_aspect_num
+ int max_aspect_den
+ CODE:
+ xcb_size_hints_set_aspect(self, min_aspect_num, min_aspect_den, max_aspect_num, max_aspect_den);
Modified: trunk/libx11-xcb-perl/_GenerateMyXS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/_GenerateMyXS.pm?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/_GenerateMyXS.pm (original)
+++ trunk/libx11-xcb-perl/_GenerateMyXS.pm Mon Nov 15 19:41:31 2010
@@ -663,6 +663,7 @@
print OUTTM "XCBConnection * T_PTROBJ\n";
print OUTTM "intArray * T_ARRAY\n";
print OUTTM "X11_XCB_ICCCM_WMHints * T_PTROBJ\n";
+ print OUTTM "X11_XCB_ICCCM_SizeHints * T_PTROBJ\n";
print OUT << 'eot';
#include "EXTERN.h"
@@ -686,6 +687,7 @@
typedef struct my_xcb_conn XCBConnection;
typedef xcb_wm_hints_t X11_XCB_ICCCM_WMHints;
+typedef xcb_size_hints_t X11_XCB_ICCCM_SizeHints;
typedef int intArray;
intArray *intArrayPtr(int num) {
Modified: trunk/libx11-xcb-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/debian/changelog?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/debian/changelog (original)
+++ trunk/libx11-xcb-perl/debian/changelog Mon Nov 15 19:41:31 2010
@@ -1,4 +1,4 @@
-libx11-xcb-perl (0.01~006-1) UNRELEASED; urgency=low
+libx11-xcb-perl (0.01~007-1) UNRELEASED; urgency=low
* Initial Release. (Closes: #603116)
Modified: trunk/libx11-xcb-perl/lib/X11/XCB.pm.in
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/lib/X11/XCB.pm.in?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/lib/X11/XCB.pm.in (original)
+++ trunk/libx11-xcb-perl/lib/X11/XCB.pm.in Mon Nov 15 19:41:31 2010
@@ -25,7 +25,7 @@
);
-our $VERSION = '0.01_006';
+our $VERSION = '0.01_007';
require XSLoader;
XSLoader::load('X11::XCB', $VERSION);
Modified: trunk/libx11-xcb-perl/lib/X11/XCB/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/lib/X11/XCB/Atom.pm?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/lib/X11/XCB/Atom.pm (original)
+++ trunk/libx11-xcb-perl/lib/X11/XCB/Atom.pm Mon Nov 15 19:41:31 2010
@@ -43,6 +43,12 @@
$self->_sequence($request->{sequence});
}
+=head1 NAME
+
+X11::XCB::Atom - wraps an X11 atom
+
+=head1 METHODS
+
=head2 exists
Returns whether this atom actually exists. If the id of the atom has not been
Modified: trunk/libx11-xcb-perl/lib/X11/XCB/Color.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/lib/X11/XCB/Color.pm?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/lib/X11/XCB/Color.pm (original)
+++ trunk/libx11-xcb-perl/lib/X11/XCB/Color.pm Mon Nov 15 19:41:31 2010
@@ -14,6 +14,12 @@
# truecolor. However, I donât have an idea for getting the coercion to
# work then.
#, required => 1);
+
+=head1 NAME
+
+X11::XCB::Color - X11 colorpixel handling
+
+=head1 METHODS
=head2 pixel
Modified: trunk/libx11-xcb-perl/lib/X11/XCB/Connection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/lib/X11/XCB/Connection.pm?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/lib/X11/XCB/Connection.pm (original)
+++ trunk/libx11-xcb-perl/lib/X11/XCB/Connection.pm Mon Nov 15 19:41:31 2010
@@ -20,6 +20,12 @@
$self->conn($conn);
}
+
+=head1 NAME
+
+X11::XCB::Connection - connection to the X server
+
+=head1 METHODS
=head2 atom
Modified: trunk/libx11-xcb-perl/lib/X11/XCB/Screen.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/lib/X11/XCB/Screen.pm?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/lib/X11/XCB/Screen.pm (original)
+++ trunk/libx11-xcb-perl/lib/X11/XCB/Screen.pm Mon Nov 15 19:41:31 2010
@@ -4,6 +4,12 @@
use X11::XCB::Rect;
has 'rect' => (is => 'ro', isa => 'X11::XCB::Rect', required => 1);
+
+=head1 NAME
+
+X11::XCB::Screen - represents an x11 screen
+
+=head1 METHODS
=head2 primary
Modified: trunk/libx11-xcb-perl/lib/X11/XCB/Window.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/lib/X11/XCB/Window.pm?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/lib/X11/XCB/Window.pm (original)
+++ trunk/libx11-xcb-perl/lib/X11/XCB/Window.pm Mon Nov 15 19:41:31 2010
@@ -6,6 +6,7 @@
use X11::XCB::Connection;
use X11::XCB::Atom;
use X11::XCB::Color;
+use X11::XCB::Sizehints;
use X11::XCB qw(:all);
use Data::Dumper;
use v5.10;
@@ -35,6 +36,7 @@
has 'background_color' => (is => 'ro', isa => 'X11::XCB::Color', coerce => 1, default => undef);
has 'name' => (is => 'rw', isa => 'Str', trigger => \&_update_name);
has 'fullscreen' => (is => 'rw', isa => 'Int', trigger => \&_update_fullscreen);
+has 'hints' => (is => 'rw', isa => 'X11::XCB::Sizehints', lazy_build => 1);
has '_hints' => (is => 'rw', isa => 'ArrayRef', default => sub { [ ] });
has '_conn' => (is => 'ro', required => 1);
has '_mapped' => (is => 'rw', isa => 'Int', default => 0);
@@ -45,6 +47,18 @@
return $self->_conn->generate_id();
}
+
+sub _build_hints {
+ my $self = shift;
+
+ return X11::XCB::Sizehints->new(_conn => $self->_conn, window => $self->id);
+}
+
+=head1 NAME
+
+X11::XCB::Window - represents an X11 window
+
+=head1 METHODS
=head2 rect
@@ -332,7 +346,7 @@
$atomtype->id,
32, # 32 bit integer
1,
- pack('L', $self->transient_for)
+ pack('L', $self->transient_for->id)
);
$self->_conn->flush;
}
Modified: trunk/libx11-xcb-perl/t/01-atom.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libx11-xcb-perl/t/01-atom.t?rev=64941&op=diff
==============================================================================
--- trunk/libx11-xcb-perl/t/01-atom.t (original)
+++ trunk/libx11-xcb-perl/t/01-atom.t Mon Nov 15 19:41:31 2010
@@ -18,7 +18,7 @@
skip "Could not setup X11 connection", 8 if $@;
- my $atom = $x->atom(name => '_NET_WM_STATE');
+ my $atom = $x->atom(name => 'PRIMARY');
isa_ok($atom, 'X11::XCB::Atom');
More information about the Pkg-perl-cvs-commits
mailing list