Add testcase to test stacking mode for containers

This commit is contained in:
Michael Stapelberg
2009-08-06 00:03:31 +02:00
parent aaca2346d8
commit bc4c321c1b
2 changed files with 146 additions and 0 deletions

View File

@ -5,6 +5,13 @@ use X11::XCB::Rect;
use X11::XCB::Window;
use X11::XCB qw(:all);
BEGIN {
my $window_count = 0;
sub counter_window {
return $window_count++;
}
}
sub open_standard_window {
my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
@ -15,6 +22,7 @@ sub open_standard_window {
);
$window->create;
$window->name('Window ' . counter_window());
$window->map;
sleep(0.25);