- t/30tkx11.t now provides a default gemoetry to prevent

	  a wait for window placement on window managers that do that
	  (like TWM - RT #24445)

diff --git a/Changes b/Changes
index 49a0b30fc5c61d917a49758614da503755369655..60d6047bc31398ef7fd2bd3dcf9bb7160fb649d4 100755 (executable)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,7 @@
 0.004
+       - t/30tkx11.t now provides a default gemoetry to prevent
+         a wait for window placement on window managers that do that
+         (like TWM - RT #24445)
        - set tags in the resulting image
        - remove an unused variable
        - add support for getting a subimage of the window

diff --git a/t/30tkx11.t b/t/30tkx11.t
index b58b249cdff92bca9566706b6e72e21f16cc00a1..3eb138ab90bd26d86af2adac075771e34f17be8a 100644 (file)
--- a/t/30tkx11.t
+++ b/t/30tkx11.t
@@ -23,6 +23,8 @@ $mw->can('windowingsystem')
 $mw->windowingsystem eq 'x11'
   or plan skip_all => 'Tk windowing system not X11';
 
+eval { $mw->geometry('+10+10'); };
+
 plan tests => 1;
 
 my $im;