#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
use Tk::Help;

# create help array
my $helparray =
[
[
    {
    -title => "Test1",
    -header => "Ohne Scrollbar",
    -text => "Test",
    },
],
[
    {
    -title => "Test2",
    -header => "Mit Scrollbar",
    -text => "\n"x10 . "a"x400 . "\n"x20 . "H"x100 . "\n"x10 . "Scrollbar Test",
    },
],
];

# create mainwindow
my $mw = tkinit();

# create Help button
$mw->Button(-text => "Hilfe",
             -command =>
    sub
    {
        $mw->Help(-icon => undef,
                           -title => "Hilfe",
                           -variable => $helparray,
                           -listbackground => "white",
                           -listwidth => 20,
                           -detailswidth => 60,
                           -listborderwidth => 2);
    })->pack;

# start eventloop
MainLoop;

__END__