Gtk2::MenuItem on a StatusIcon disapears on mouse-up

["Tijmen Ruizendaal" <tijmen ruizendaal gmail com>]

Hello!

I have a StatusIcon for an application of me. If right click on the
icon, I want to show a menu. I use the signal 'popup-menu'.

The menu appears at mouse-down. and while holding the button, it
disappears at mouse-up as well. This is normal behaviour for a
statusicon.

However, if I do a mouse click without holding the button down, but
releasing it immidiately, the menu dissapears to. So the menu is
visible for like 100ms. then it's gone again. This is not what i
expected.

All the other items (power manager and network manager) in my
notification area behave correctly. I can right click, and the menu
shows up. I can hold down the button and the menu disappears at
mouse-up

I think it's a bug. But it might be my code as well.

Version information:
I run Ubuntu Gutsy Gibbon (development branch at this moment).
Notification Area 2.19.2
Gnome Panel 2.19.2
libgtk2-perl 1:1.140-1build1 from gutsy gibbon.


Below a small testcase which has the same code as in my project, and
the same behavior.

I hope someone can help me out, or confirm the bug.

Thanks,

Tijmen


Code:
---

#!/usr/bin/perl

use Gtk2 '-init';
use strict;

my $file = '/home/tijmen/Projects/Gtk2-BitlBee/release/gtk2-bitlbee-0.2.5/glade/BeeHive.png';

my $icon = Gtk2::StatusIcon->new();

$icon->set_from_file($file);
$icon->set_visible(1);
$icon->signal_connect('popup-menu' => sub { show_icon_menu($icon); } );
$icon->set_tooltip('Gtk2 BitlBee, Bzzzz...');
print "StatusIcon loaded\n";


sub show_icon_menu {
       my $menu = Gtk2::Menu->new();
       my $menuitem = Gtk2::MenuItem->new('Preferences');

       my $nicksitem = Gtk2::MenuItem->new('Nicks');
       $nicksitem->show();

       my $allnicks = new Gtk2::Menu->new();

       my @nicks = ('foo', 'bar', 'me', 'you');

       foreach my $nick (@nicks) {
               my $nickitem = Gtk2::MenuItem->new($nick);
               $nickitem->show();
               $allnicks->append($nickitem);
       }

       $nicksitem->set_submenu($allnicks);

       $menuitem->show();
       $menuitem->signal_connect('activate', sub { print "Click\n"; });
       $menu->append($menuitem);
       $menu->append($nicksitem);
       $menu->show_all();
       $menu->popup(undef, undef, sub { return
Gtk2::StatusIcon::position_menu($menu, 0, 0, $icon); }, [1,1], 0, 0 );

}

Gtk2->main;


---