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