#!c:/perl/bin
use strict;
use diagnostics;
use Tk;
use Tk::DataTree;

my $mw = MainWindow->new (-title=>'Cartoon DataTree');
$mw->geometry('200x500');

my $dt = $mw->Scrolled('DataTree',-activecolor => 'blue',
    -scrollbars=>'se')->pack(-fill=>'both',-expand=>1);

$dt->data( {
        flintstones => {
           series   => "flintstones",
           nights   => [ qw(monday thursday friday) ],
           members  => [
                { name => "fred",    role => "lead", age  => 36, },
                { name => "wilma",   role => "wife", age  => 31, },
                { name => "pebbles", role => "kid",  age  =>  4, },
            ],
        },

            jetsons     => {
           series   => "jetsons",
           nights   => [ qw(wednesday saturday) ],
           members  => [
                { name => "george",  role => "lead", age  => 41, },
                { name => "jane",    role => "wife", age  => 39, },
                { name => "elroy",   role => "kid",  age  =>  9, },
            ],
         },

            simpsons    => {
           series   => "simpsons",
           nights   => [ qw(monday) ],
           members  => [
                { name => "homer", role => "lead", age  => 34, },
                { name => "marge", role => "wife", age => 37, },
                { name => "bart",  role => "kid",  age  =>  11, },
            ],
         },
       }
);

MainLoop;
[download]