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