1use strict;
2use warnings;
3
4use Test::More;
5use Prima::sys::Test;
6
7plan tests => 13;
8
9my $window = create_window;
10
11my $ww = $window-> insert( Widget =>
12	origin    => [ 10, 10],
13	growMode  => gm::GrowLoX,
14);
15
16is( $ww-> left, 10, "create" );
17is( $ww-> bottom, 10, "create" );
18
19$ww-> origin( 30, 30);
20
21is( $ww-> left, 30, "runtime" );
22is( $ww-> bottom, 30, "runtime" );
23
24$window-> size( 200, 200);
25my @wp = $window-> size;
26$window-> size( 300, 300);
27$wp[0] = $window-> width - $wp[0];
28$wp[1] = $window-> height- $wp[1];
29
30is( $ww-> left, 30 + $wp[0], "horizontal" );
31is( $ww-> bottom, 30, "horizontal" );
32$ww-> growMode( gm::GrowLoY);
33$window-> size( 200, 200);
34is( $ww-> left, 30 + $wp[0], "vertical" );
35is( $ww-> bottom, 30 - $wp[1], "vertical" );
36
37$ww-> hide;
38reset_flag();
39$ww-> set( onMove => \&set_flag );
40$ww-> origin(10,10);
41is( $ww-> left, 10, "hidden" );
42is( $ww-> bottom, 10, "hidden" );
43ok( wait_flag, "event" );
44
45$ww-> owner( $::application);
46$ww-> owner( $window );
47is( $ww-> left, 10, "reparent" );
48is( $ww-> bottom, 10, "reparent" );
49
50$ww-> destroy;
51