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