Problem with Gnome2::App menus

[Le-Borgne Patrice <Patrice Le-Borgne ac-rennes fr>]

I wrote 2 years ago, an little Gnome app. To create the menus, i used 
the code below but it does not work anymore with gnome2. The window 
appears but when i activate the menu, nothing happen except the 
message :

***unhandled exception in callback :
*** Not a CODE reference at ...

The problem, i think, is that i use a wrong method to set up the 
user_data argument. 

Can anybody help me ?

############ example ######################"


    my $app=Gnome2::App->new($NAME,$NAME); 
    $self->fenetre($app); 
    $app->signal_connect('delete_event',sub {Gtk2->main_quit;return 
0;});


# Le menu Fichier
my $FILE_MENU= [
                ['item','Nouveau',undef,
[\&nouveau_document,$self],'stock','gtk-new'],
                ['item','Ouvrir',undef,
[\&ouvrir_document,$self],'stock','gtk-open',111,'control-mask'],
                ['separator'],
                ['item','Enregistrer',undef,
[\&enregistrer_document,$self],'stock','gtk-save',115,'control-mask'],
                ['item','Enregistrer sous',undef,
[\&enregistrer_sous,$self],'stock','gtk-save-as'],
                ['separator'],
                ['item','_Visualiser',undef,
[\&visualiser_document,$self],'stock','gtk-dnd',108,'control-mask'],
                ['separator'],
                ['item','Quitter',undef,[\&quitter,$self],'stock','gtk-
quit',113,'control-mask'],
                ['endofinfo']
               ];

# Pour les plus fainéants, on peut définir un menu
# à l'aide de tableaux mais il fait faire attention
# à l'ordre des éléments !
my $EDIT_MENU= [
                ['item','C_ut',undef,[\&couper,$self],'stock','gtk-
cut'],
                ['item','_Copy',undef,[\&copier,$self],'stock','gtk-
copy'],,
                ['item','_Paste',undef,[\&coller,$self],'stock','gtk-
paste'],
                ['endofinfo']
               ];


my $ABOUT_MENU = [
                  {type=>'item',
                   label=>'_About...',
                   pixmap_type=>'stock',
                   pixmap_info=>'gtk-about',
                   moreinfo=>\&afficher_about,
                   },
                { type=>'endofinfo'}
                  ];

my $MAIN_MENUS = [
               {
                   type=>'subtree',
                   label=>'_File',
                   moreinfo=>$FILE_MENU
                   },
               {
                   type=>'subtree',
                   label=>'_Edit',
                   moreinfo=>$EDIT_MENU
                   },
                 {
                   type=>'subtree',
                   label=>'_Help',
                   moreinfo=>$ABOUT_MENU,
                   }
               ];

#$self->fenetre->create_menus(@$MAIN_MENUS);
$app->create_menus([
               {
                   type=>'subtree',
                   label=>'_File',
                   moreinfo=>$FILE_MENU
                   },
               {
                   type=>'subtree',
                   label=>'_Edit',
                   moreinfo=>$EDIT_MENU
                   },
                 {
                   type=>'subtree',
                   label=>'_Help',
                   moreinfo=>$ABOUT_MENU
                   }
               ]);

##### end of example