Hello Monks, Also in support of the above output I am including the function block which the output refers. Please look at the following snippet where I have used Devel::FindRef. You will also find atleast 11 menus have been created by $contextmenu->add( ...) and hence it shows 11+1 = 12 refcounts. Please help.

sub TaskGenJobExecDisplay::_Menu ()
{
  my TaskGenJobExecDisplay $self = shift;

  my $contextMenu = $self->jobTree()->Menu( -tearoff => 0 );
  $contextMenu->add(
             'command',
             -label   => 'Kill',
             -command => sub { $self->onMenuKill(@_) },
             -font    => $tool_config::FONT_BIG
  );

  $contextMenu->add(
             'command',
             -label   => 'Delete',
             -command => sub { print TE "deleting jobs :$self \n";$sel
+f->onMenuDelete(@_);weaken($self); $logger->info(Devel::FindRef::trac
+k \$self); },
             -font    => $tool_config::FONT_BIG
  );
  $contextMenu->add('separator');

  $contextMenu->add(
             'command',
             -label   => 'Edit Profile',
             -command => sub { $self->onMenuEditProfile(@_) },
             -font    => $tool_config::FONT_BIG
  );

  $contextMenu->add('separator');
  $contextMenu->add(
             'command',
             -label   => 'Show Logfile',
             -command => sub { $self->onMenuShowLogfile(0) },
             -font    => $tool_config::FONT_BIG
  );

  $contextMenu->add(
             'command',
             -label   => 'Show Logfile Sep. Window',
             -command => sub { $self->onMenuShowLogfile(1) },
             -font    => $tool_config::FONT_BIG
  );
  $contextMenu->add('separator');
  $contextMenu->add(
             'command',
             -label   => 'Restart',
             -command => sub { $self->onMenuRestart( @_, 0 ) },
             -font    => $tool_config::FONT_BIG
  );

  $contextMenu->add(
             'command',
             -label   => 'Edit & Restart',
             -command => sub { $self->onMenuRestart( @_, 1 ) },
             -font    => $tool_config::FONT_BIG
  );

    $contextMenu->add(
        'command',
        -label   => 'Restart (incl. predecessors)',
        -command => sub { $self->onMenuRestartWithPredecessors( @_, 0 
+) },
        -font    => $tool_config::FONT_BIG
    );

  $contextMenu->add('separator');
  $contextMenu->add(
             'command',
             -label   => 'Unlock',
             -command => sub { $self->onMenuUnlock(@_) },
             -font    => $tool_config::FONT_BIG
  );
  $contextMenu->add(
             'command',
             -label   => 'Force Ok',
             -command => sub { $self->onMenuForceStatus( @_, $communic
+ation::OK ) },
             -font    => $tool_config::FONT_BIG
  );
  $contextMenu->add(
             'command',
             -label   => 'Force failed',
             -command => sub { $self->onMenuForceStatus( @_, $communic
+ation::ERROR ) },
             -font    => $tool_config::FONT_BIG
  );
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.