- t/30tkx11.t now provides a default gemoetry to prevent
authorTony Cook <tony@develop-help.com>
Mon, 22 Jan 2007 04:33:05 +0000 (04:33 +0000)
committerTony Cook <tony@develop-help.com>
Mon, 22 Jan 2007 04:33:05 +0000 (04:33 +0000)
  a wait for window placement on window managers that do that
  (like TWM - RT #24445)

Changes
t/30tkx11.t

diff --git a/Changes b/Changes
index 49a0b30..60d6047 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
index b58b249..3eb138a 100644 (file)
@@ -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;