sorry posted the wrong menu code.
Please refer to the following code.

my $file_menu = $menubar->Menubutton(-text => "File",
                                     -activebackground => 'blue',
                                     -activeforeground => 'white',
                                     -tearoff => 0,
                                     -menuitems => [

                                                     [Button => '~Sele
+ct', -command  => \&select_file  , -accelerator => '<Ctrl-s>'],
                                                     [Button => "~Edit
+",-state => 'disabled', -command  => \&edit_file , -accelerator
=> '<Ctrl-e>' ],
                                                     [Button => '~Gene
+rate XML', -state => 'disabled',-command  => \&gen_xml  , -accel
erator => '<Ctrl-x>'],
                                                     ["separator" => "
+ "],
                                                     [Button  => "Exit
+", -command  => sub {exit 0;} , -accelerator => 'ESC']

                                                     ])->pack(-side =>
+ 'left');

[download]

In reply to Re: Perl/TK: enabling a disable menu item by chimni
in thread Perl/TK: enabling a disable menu item by chimni

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.