[gtkada] Quitting widget from menu

[Rick Duley]

Hi folks

I have a handcoded composite widget I wish to be able to quit from a 'Quit'
tab on a drop-down menu.
I have:
   package Image_Menu_Item_Callback is new
     Gtk.Handlers.Callback (Gtk.Image_Menu_Item.Gtk_Image_Menu_Item_Record);
ddeclared in Callbacks_Gadget.ads.

I have:
      Callbacks_Gadget.Image_Menu_Item_Callback.Connect
        (Widget => The_Gadget.Quit_Tab,
         Name => "activate",
         Marsh  => Callbacks_Gadget.Image_Menu_Item_Callback.To_Marshaller
           (Gadget_Pkg.Callbacks.On_Quit_Tab_Activate'Access));
declared in Gadget_Pkg.adb.

I have:
   procedure On_Quit_Tab_Activate
     (Object : access Gtk.Image_Menu_Item.Gtk_Image_Menu_Item_Record'Class)
is
   begin  -- On_Quit_Tab_Activate
      Gtk.Widget.Destroy_Cb (Widget => Object);
   end On_Quit_Tab_Activate;
declared in Gadget_Pkg.Callbacks.adb.
 Nothing happens when I click on 'Quit'.

Where have I goofed?

Thanks
-- 
Rick Duley
North Perth,
Western Australia
http://www.freewebs.com/rickduley/
                                    .-_|\
                                   /     \
                             perth *_.-._/
                                        v
aussie :     0409 106 049
o'seas :  +61 409 106 049
--------------------------------------------
Committees:
"... dark alley down which ideas are led
                   ... then strangled."
                                  (PepsiCo)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: /pipermail/gtkada/attachments/20090605/dc44f51c/attachment.htm