tests: Use hex color codes for background_color
This commit is contained in:
parent
4a83bd26f8
commit
32532792cd
@ -17,8 +17,7 @@ my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 3
|
|||||||
my $window = X11::XCB::Window->new(
|
my $window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => $original_rect,
|
rect => $original_rect,
|
||||||
#override_redirect => 1,
|
background_color => '#C0C0C0',
|
||||||
background_color => 12632256
|
|
||||||
);
|
);
|
||||||
|
|
||||||
isa_ok($window, 'X11::XCB::Window');
|
isa_ok($window, 'X11::XCB::Window');
|
||||||
|
@ -20,8 +20,7 @@ my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 3
|
|||||||
my $window = X11::XCB::Window->new(
|
my $window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => $original_rect,
|
rect => $original_rect,
|
||||||
#override_redirect => 1,
|
background_color => '#C0C0C0',
|
||||||
background_color => 12632256
|
|
||||||
);
|
);
|
||||||
|
|
||||||
isa_ok($window, 'X11::XCB::Window');
|
isa_ok($window, 'X11::XCB::Window');
|
||||||
|
@ -18,7 +18,7 @@ my $window = X11::XCB::Window->new(
|
|||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => $original_rect,
|
rect => $original_rect,
|
||||||
override_redirect => 1,
|
override_redirect => 1,
|
||||||
background_color => 12632256
|
background_color => '#C0C0C0',
|
||||||
);
|
);
|
||||||
|
|
||||||
isa_ok($window, 'X11::XCB::Window');
|
isa_ok($window, 'X11::XCB::Window');
|
||||||
|
@ -20,7 +20,7 @@ X11::XCB::Connection->connect(':0');
|
|||||||
my $window = X11::XCB::Window->new(
|
my $window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => [ 0, 0, 30, 30],
|
rect => [ 0, 0, 30, 30],
|
||||||
background_color => 12632256,
|
background_color => '#C0C0C0',
|
||||||
type => 'utility',
|
type => 'utility',
|
||||||
);
|
);
|
||||||
|
|
||||||
@ -43,7 +43,7 @@ $window->unmap;
|
|||||||
$window = X11::XCB::Window->new(
|
$window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => [ 1, 1, 80, 90],
|
rect => [ 1, 1, 80, 90],
|
||||||
background_color => 12632256,
|
background_color => '#C0C0C0',
|
||||||
type => 'utility',
|
type => 'utility',
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@ -42,7 +42,7 @@ my $focus = X11::XCB::Connection->input_focus;
|
|||||||
my $window = X11::XCB::Window->new(
|
my $window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => [ 1, 1, 30, 30],
|
rect => [ 1, 1, 30, 30],
|
||||||
background_color => 12632256,
|
background_color => '#C0C0C0',
|
||||||
type => 'utility',
|
type => 'utility',
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@ -32,8 +32,7 @@ my $primary = first { $_->primary } @{$screens};
|
|||||||
my $window = X11::XCB::Window->new(
|
my $window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => [ 0, 0, 30, 30],
|
rect => [ 0, 0, 30, 30],
|
||||||
#override_redirect => 1,
|
background_color => '#FF0000',
|
||||||
background_color => 12632256,
|
|
||||||
type => 'dock',
|
type => 'dock',
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@ -18,7 +18,7 @@ sub open_standard_window {
|
|||||||
my $window = X11::XCB::Window->new(
|
my $window = X11::XCB::Window->new(
|
||||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||||
rect => $original_rect,
|
rect => $original_rect,
|
||||||
background_color => 12632256,
|
background_color => '#C0C0C0',
|
||||||
);
|
);
|
||||||
|
|
||||||
$window->create;
|
$window->create;
|
||||||
|
Loading…
Reference in New Issue
Block a user