use 5.010;
use strict;
use warnings;
use Scalar::Util;
use Gtk2 "-init";

my $item=Gtk2::MenuItem->new;
{
  my $alabel = Gtk2::AccelLabel->new('t');
  $item->add ($alabel);
  $alabel->set_accel_widget ($item);
}
Scalar::Util::weaken($item);
print $item,"\n";
