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