Tk::Optionbox 0.09

SYNOPSIS

use Tk;
use Tk::Optionbox

my $current_class;
my @all_classes = qw(cat dog bird);
my $demo_xpm;

my $mw = MainWindow->new();

# prepare some graphics
setup_pixmap();

# create a demo
my $optionbox = $mw->Optionbox (
-text => "Class",
-image => $demo_xpm, # use this line for personal pics or
#-bitmap => @ . Tk->findINC(cbxarrow.xbm));
-command => &class_cb,
-options => [ @all_classes ],
-variable => $current_class,
-tearoff => 1,
-rows => 10,
-activate => 0,
)->pack;

Tk::MainLoop;

sub class_cb
{
print "class_cb called with [@_], $current_class = >$current_class }
sub setup_pixmap
{
my $cbxarrow_data = <<cbxarrow_EOP;
/* XPM */
static char *cbxarrow[] = {
"11 14 2 1",
". c none",
" c black",
"...........",
".... ....",
".... ....",
".... ....",
".... ....",
".... ....",
". .",
".. ..",
"... ...",
".... ....",
"..... .....",
"...........",
". .",
". ."
};
cbxarrow_EOP

$demo_xpm = $mw->Pixmap( -data => $cbxarrow_data);
}
DESCRIPTION ^
Another menu button style widget that can replace the default Optionmenu. Useful in applications that want to use a more flexible option menu. Its based on the default TK::Optionmenu, beside that it can handle menubuttons without the persistent, ugly menu-indicator, suitable for perl Tk800.x (developed with Tk800.024).
You can tie a scalar-value to the Optionbox widget, enable/disable it, assign a callback, that is invoked each time the Optionbox is changed, as well as set Option-values and configure any of the options understood by Tk::Frame(s) like -relief, -bg, ... . (see docs of TK::Optionmenu) for details