1use strict;
2use warnings;
3
4use Test::More;
5use Prima::sys::Test;
6use Prima::Application;
7
8plan tests => 3;
9
10my $window = create_window;
11
12my $ww = $window->insert( 'Widget' => origin => [ 10, 10],);
13my @xr = $window-> origin;
14my @r = $ww-> screen_to_client( $xr[0] + 10, $xr[1] + 10);
15is_deeply( \@r, [0,0], "screen to client" );
16
17@r = $ww-> client_to_screen( 0, 0);
18is_deeply( \@r, [$xr[0] + 10,$xr[1]+10], "client to screen" );
19
20@r = $::application-> client_to_screen( 1, 2);
21is_deeply( \@r, [1,2], "application" );
22
23$ww-> destroy;
24