From 6d2b10bacb2738b1a93a127d38d4eb0c59a36539 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 1 Jan 2007 06:19:18 +0000
Subject: [PATCH] older Tk doesn't supply the windowing system method

---
 t/30tkx11.t   | 2 ++
 t/40tkwin32.t | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/t/30tkx11.t b/t/30tkx11.t
index f60ce1f..b58b249 100644
--- a/t/30tkx11.t
+++ b/t/30tkx11.t
@@ -18,6 +18,8 @@ $@
 
 my $mw = Tk::MainWindow->new;
 
+$mw->can('windowingsystem')
+  or plan skip_all => 'Cannot determine windowing system';
 $mw->windowingsystem eq 'x11'
   or plan skip_all => 'Tk windowing system not X11';
 
diff --git a/t/40tkwin32.t b/t/40tkwin32.t
index f8f2ab8..0125e46 100644
--- a/t/40tkwin32.t
+++ b/t/40tkwin32.t
@@ -18,6 +18,9 @@ eval {
 };
 $@ and plan skip_all => 'Cannot create a window in Tk';
 
+$mw->can('windowingsystem')
+  or plan skip_all => 'Cannot determine windowing system';
+
 $mw->windowingsystem eq 'win32'
   or plan skip_all => 'Tk windowing system not Win32';
 
-- 
2.30.2