#!/usr/bin/perl
use strict;
use warnings;
$| = 1;

use Tk;
use Tk::NoteBook;
use Devel::Size qw(total_size);
use Data::Dumper;

my $mw = MainWindow->new();
my $nb = $mw->NoteBook()->pack;
my $i;
my $amount = $ARGV[0];
$amount ||= 20;

print "0 tabs:\n";
print "total_size " . total_size($nb) . "\n";
print Dumper($nb);
print "\n-------------\n";

for ($i=0;$i<$amount;$i++) {
    my $p1 = $nb->add("$i", -label => "$i");
    $p1->Label(-text => "aap" x 100)->pack();
}
for ($i=0;$i<$amount;$i++) {
    $nb->delete($i);
}

print "0 tabs: (after removing $amount tabs)\n";
print "total_size " . total_size($nb) . "\n";
print Dumper($nb);
print "\n-------------\n";

##MainLoop();