Naja, hier rennt packInfo() in einen Fehler, wenn es für ein Widget aufgerufen wird, das nicht ge"pack"t ist. Man könnte also evaluieren, ob der entsprechende Aufruf in einen Fehler läuft, und das Resultat auswerten.

Ansonsten liefert ein erfolgreiches packInfo mehr als nur die übergebenen Informationen; es liefert auch die Information, wer der Master des jeweiligen Widgets ist.

Alternativ könnte man auch auf das Master-Widget die Methode packSlaves anwenden und so erfahren, welche Slave-Widgets der Master gerade hat.

perldoc Tk::pack

$master->packSlaves

Returns a list of all of the slaves in the packing order for $master. The order of the slaves in the list is the same as their order in the packing order. If $master has no slaves then an empty list/string is returned in array/scalar context, respectively

Tk::pack