Anyway, here is an example of some code:

#!/usr/local/bin/perl

use Tk;

my $main = new MainWindow;

$help_mb = $main->Menubutton(-text => "Help",
                                  -bg => '#bdc4c2',
                                  -tearoff => '0',
                                  -activebackground => '#bdc4c2',
                                  -relief => 'raised',
                                  -menuitems => [ [ 'command' => "quit
+",
                                                   "-command" => \&my_
+quit,
                                                   "-underline" => 0 ]
                                                ],
                                  )->pack(-side => 'right');

MainLoop;

sub my_quit {
   exit;
}
[download]

Please let me know if that clarifies the question. Thanks. I suppose I could add some hack where every option in the menu turns off some boolean that was turned on by the -postcommand option, but there should be a much more elegant solution if I could just use ismapped() on the acutal menus widget id I think. ??

Erad

I think you could use a little clarification in your question here. what kind of menu? what system are you talking about? are you talking about an application menu in a WinX app? a winow menu under KDE? a perl TK app that you wrote yourself? or what? "the general widget functions" in what module? the more you tell us, the more likely we are to understand the problem. the better we understand, the better the answers.