Just to set the text within:
$dropdown->Subwidget("entry")->Subwidget("entry")->configure(-text=>"F
+irst");
Use WidgetInspection to look into widgets
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->{$secr
+et->[0]}->{$class};
}
}
}
my $mw = MainWindow->new();
my $obj = $mw->BrowseEntry(-label=>"test")->pack();
WidgetInspection($obj);
MainLoop;