#~ http://cpansearch.perl.org/src/LGODDARD/Tk-Wizard-2.151/t/160_textbox.t
sub T160 {
    local $ENV{TEST_INTERACTIVE} = 1;
    my $wizard = Tk::Wizard->new;

    $wizard->addSplashPage( -wait => $ENV{TEST_INTERACTIVE} ? 0 : 1, );

    $wizard->addTextFramePage(
        -wait => $ENV{TEST_INTERACTIVE} ? 0 : 1,
        -title     => "1: Text from literal",
        -boxedtext => \"This is in a box",      # "
    );

    $wizard->addTextFramePage(
        -wait => $ENV{TEST_INTERACTIVE} ? 0 : 1,
        -subtitle  => sprintf( "2: Text from filename (%s)", __FILE__ ),
        -boxedtext => __FILE__,
    );

    $wizard->Show;
    MainLoop;

} ## end sub T160

__END__