$self->addTab(sub { $self->WatchLog });

##</code><code>##

    foreach my $code (@{$self->{CODETAB}}){
        $code->();
    }

##</code><code>##

    $self->addTab($self->can("WatchLog"));