my $tabs = $dtf->cget(-tabs);
while (my ($name, $hash) = each %$tabs)
        {
        my @objekte = $hash->children;
        foreach (@objekte)
                {
                if ($_->class eq 'Button')
                        {
                        $_->bind('<ButtonRelease-3>', sub{ ... });
                        }
                }
        }