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{ ... });
			}
		}
	}