#!/usr/bin/perl
# -*- perl -*-

#
# Author: Slaven Rezic
#

use strict;

BEGIN {
    if (!eval q{
	use Test::More;
# 	require Test::Without::Module;
# 	die "Problems with Test::Without::Module 0.09"
# 	    if $Test::Without::Module::VERSION eq '0.09';
	$ENV{DEVEL_HIDE_PM} = "";
	$ENV{DEVEL_HIDE_VERBOSE} = 0;
	require Devel::Hide;
	1;
    }) {
#	print "1..0 # skip no Test::More and/or Test::Without::Module (!= 0.09) modules\n";
	print "1..0 # skip no Test::More and/or Devel::Hide modules\n";
	CORE::exit;
    }
}

#use Test::Without::Module qw(Text::English Tk::HistEntry Tk::ToolBar);
use Devel::Hide qw(Text::English Tk::HistEntry Tk::ToolBar);

use Tk;
use Tk::Pod;

my $mw = eval { tkinit };
if (!$mw) {
    print "1..0 # cannot create MainWindow\n";
    CORE::exit(0);
}

plan tests => 1;

$mw->geometry("+0+0");

my $pod = $mw->Pod;
$pod->geometry('+10+10'); # for twm
$pod->idletasks;
ok(Tk::Exists($pod));

if (defined $ENV{BATCH} && !$ENV{BATCH}) {
    MainLoop;
}

__END__