Use WidgetInspection to look into widgets$dropdown->Subwidget("entry")->Subwidget("entry")->configure(-text=>"F +irst");
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;
In reply to Re: How can I get the index of the currently selected Tk::BrowseEntry element?
by glenn
in thread How can I get the index of the currently selected Tk::BrowseEntry element?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |