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