- wait for the widget to be displayed before doing the delay that
[imager-screenshot.git] / t / 30tkx11.t
index b58b249..5f29a85 100644 (file)
@@ -23,15 +23,21 @@ $mw->can('windowingsystem')
 $mw->windowingsystem eq 'x11'
   or plan skip_all => 'Tk windowing system not X11';
 
-plan tests => 1;
+eval { $mw->geometry('+10+10'); };
 
-my $im;
-$mw->Label(-text => "test: $0")->pack;
+plan tests => 2;
+
+my ($im_mw, $im_label);
+my $label = $mw->Label(-text => "test: $0")->pack;
+$label->waitVisibility;
 $mw->after(100 =>
            sub {
-             $im = screenshot(widget => $mw, decor => 1)
-               or print "# ", Imager->errstr, "\n";
+             $im_mw = screenshot(widget => $mw, decor => 1)
+               or print "# mw: ", Imager->errstr, "\n";
+            $im_label = screenshot(widget => $label)
+              or print "# label: ", Imager->errstr, "\n";
              $mw->destroy;
            });
 MainLoop();
-ok($im, "grab from a Tk widget (X11)");
+ok($im_mw, "grab from a Tk widget (X11)");
+ok($im_label, "grab label from a Tk widget (X11)");