1use strict; 2use warnings; 3 4use Test::More; 5use Prima::sys::Test; 6 7plan tests => 3; 8 9reset_flag; 10my $window = create_window(); 11$window->lock; 12my $c = $window-> insert( Widget => onPaint => \&set_flag ); 13$c-> update_view; 14ok( !get_flag, "child" ); 15 16reset_flag; 17$c-> repaint; 18$window-> unlock; 19$c-> update_view; 20ok(get_flag, "child unlock" ); 21 22reset_flag; 23$c-> lock; 24$c-> repaint; 25$c-> update_view; 26ok( !get_flag, "lock consistency" ); 27$c-> unlock; 28$c-> destroy; 29