Extend testcase for dock clients with wm_transient_for hint
This commit is contained in:
parent
65cae2cad1
commit
8a9b57c874
|
@ -43,4 +43,17 @@ sleep 0.25;
|
||||||
my $rect = $window->rect;
|
my $rect = $window->rect;
|
||||||
is($rect->width, $primary->rect->width, 'dock client is as wide as the screen');
|
is($rect->width, $primary->rect->width, 'dock client is as wide as the screen');
|
||||||
|
|
||||||
|
my $fwindow = $x->root->create_child(
|
||||||
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
|
rect => [ 0, 0, 30, 30],
|
||||||
|
background_color => '#FF0000',
|
||||||
|
type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
|
||||||
|
);
|
||||||
|
|
||||||
|
$fwindow->transient_for($window);
|
||||||
|
$fwindow->map;
|
||||||
|
|
||||||
|
sleep 0.25;
|
||||||
|
|
||||||
|
|
||||||
diag( "Testing i3, Perl $], $^X" );
|
diag( "Testing i3, Perl $], $^X" );
|
||||||
|
|
Loading…
Reference in New Issue