Can I modify Tk::Optionmenu?

jdtoronto has asked for the wisdom of the Perl Monks concerning the following question:

Esteemed Monks,

As I sat pondering responses to my earlier request for help on OO-Perl in Help me understand inheritance please! and reading some books here (mainly thedamian's OO Perl and Lidie - Mastering Perl/Tk, I was asking my self why Tk didn't have an option-menu type widget. You know, one where you have a displayed option text and a returned value which is not the same. Well it turns out it does! Only one problem for me - It looks different again - very nice and 'X' but not at all Windows which is where I have to work on this ocassion.

Is it possible to change the 'indicator' from the little rectangle to a down arrow or some other bitmap. I have looked at the docs and it says that the text portion can be replacced by a bitmap, it doesn't talk about the button part.

Any suggestions?

jdtoronto

Comment on Can I modify Tk::Optionmenu?

Replies are listed 'Best First'.
Re: Can I modify Tk::Optionmenu? by zentara (Cardinal) on Nov 05, 2004 at 13:39 UTC
This was asked recently by somebody, in a slightly different form, on how to remove the indicator. Some responded with this. Maybe you can figure out how to change it, rather than undef it.? If you do post it. As a last resort, you can take the code from the Optionmenu module, which is derived from MenuButton, and include them as packages into your code, and customize them. `#!/usr/bin/perl use Tk; my $mw = MainWindow->new(); my $opt = $mw->Optionmenu( -options => [[jan=>1], [feb=>2], [mar=>3]] )->pack; #$opt->configure(-indicatoron => undef); my $button = $mw->Button( -text => 'Remove Indicatoron', -command => sub{ $opt->configure(-indicatoron => undef); } )->pack; MainLoop;` [download] I'm not really a human, but I play one on earth. flash japh	[reply] [d/l]

Replies are listed 'Best First'.

Re: Can I modify Tk::Optionmenu?
by zentara (Cardinal) on Nov 05, 2004 at 13:39 UTC

As a last resort, you can take the code from the Optionmenu module, which is derived from MenuButton, and include them as packages into your code, and customize them.

#!/usr/bin/perl
use Tk;

my $mw = MainWindow->new();

my $opt = $mw->Optionmenu(
        -options => [[jan=>1], [feb=>2], [mar=>3]]
               )->pack;
#$opt->configure(-indicatoron => undef); 

my $button = $mw->Button(
        -text => 'Remove Indicatoron',
        -command => sub{ $opt->configure(-indicatoron => undef);   }
)->pack;

MainLoop;
[download]

I'm not really a human, but I play one on earth. flash japh

[reply]
[d/l]