- wait for the widget to be displayed before doing the delay that

[imager-screenshot.git] / t / 30tkx11.t

diff --git a/t/30tkx11.t b/t/30tkx11.t
index 1b896b9580e96fba598bbd051b2dde27949ab56a..5f29a85ffe95faa5e456a234bcbca616b1f567bb 100644 (file)
--- a/t/30tkx11.t
+++ b/t/30tkx11.t
@@ -29,6 +29,7 @@ plan tests => 2;
 
 my ($im_mw, $im_label);
 my $label = $mw->Label(-text => "test: $0")->pack;
+$label->waitVisibility;
 $mw->after(100 =>
            sub {
              $im_mw = screenshot(widget => $mw, decor => 1)