use Tk;

sub WidgetInspection {
        my $widget = $_[0];
        foreach my $secret (
        ['SubWidget'   => "Advertised Subwidgets"],
        ['Delegates'   => "Delegated Methods"],
        ['Configure'   => "configure( ) Options"],
        ['ConfigSpecs' => "Configure Specifications"],
        ) {
                printf "\n%-11s - %s\n", $secret->[0], $secret->[1];
                foreach my $class (keys %{$widget->{$secret->[0]}}) {
                        printf "%20s: %31s\n", $class, $widget->{$secret->[0]}->{$class};
                }
        }
}

my $mw = MainWindow->new();
my $obj = $mw->BrowseEntry(-label=>"test")->pack();

WidgetInspection($obj);

MainLoop;