How to disable a single menu item in Perl/Tk menubar?

Question

The following code creates a menu list called "User Selection" with four menu items: "Save", "Save As", "Load, and "Load From":

my $userselectedmenuitems = [
                      [ 'command' , 'Save', -command => \&saveUserSelection ]
                      [ 'command' , 'Save As', -command => \&saveUserSelectionAs ]
                      [ 'command' , 'Load', -command => \&loadSelectionsFromDefaultXMLFile ]
                      [ 'command' , 'Load From', -command => \&loadSelectionsFromUserSpecifiedXMLFile ] ;
my $userselectedmenu = $menubar->cascade (
                             -label => 'User Selection',
                             -tearoff => 0,
                             -menuitems => $userselectedmenuitems,
                      ) ;

Now, the following code will cause the entire menu list to be disabled:

$userselectedmenu->configure(-state => 'disable');

However, that's not what I want. I want to disable only one entry in the list (specifically the "Save" entry). How do I do that?

I saw online that many examples refer to the function "entryconfigure". However, when I run this code:

$userselectedmenu->entryconfigure('Save', -state => 'disable');

I get the following error message:

Can't locate object method "entryconfigure" via package "Tk::Menu::Cascade" at [line number]

Disclaimer: I apologize if this code needs some massaging to be reproducible, I have to transcribe code to this computer by hand.

choroba · Accepted Answer · 2025-07-30 23:00:56Z

2

You first need entrycget to get the menu, then you can use entryconfigure to disable its item:

$menubar->entrycget('User Selection', '-menu')
        ->entryconfigure('Save', -state => 'disabled');

answered Jul 30 at 23:00

choroba

245k27 gold badges221 silver badges304 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to disable a single menu item in Perl/Tk menubar?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related