[gtkada] GNOME.App_Helper patch

[Aidan Skinner]

Attached to this email is a context diff against
GtkAda.cvs/src/gnome/gnome-app_helper.adb to implement the create_menu
function.

- Aidan

-- 
aidan at velvet.net  http://www.velvet.net/~aidan/  aim:aidans42
finger for pgp key fingerprint: |-----------------------------
01AA 1594 2DB0 09E3 B850        | The lurkers support me in
C2D0 9A2C 4CC9 3EC4 75E1        | email
-------------- next part --------------
Index: gnome-app_helper.adb
===================================================================
RCS file: /anoncvs/GtkAda.cvs/src/gnome/gnome-app_helper.adb,v
retrieving revision 1.3
diff -C3 -r1.3 gnome-app_helper.adb
*** gnome-app_helper.adb	2002/01/04 14:02:13	1.3
--- gnome-app_helper.adb	2002/02/17 23:19:41
***************
*** 105,112 ****
       (App  : access Gnome_App_Record'Class;
        Info : access UI_Info_Array)
     is
     begin
!       raise Program_Error;
     end Create_Menus;
  
     --------------------
--- 105,118 ----
       (App  : access Gnome_App_Record'Class;
        Info : access UI_Info_Array)
     is
+ 
+       procedure Internal
+         (App          : System.Address;
+          Info         : System.Address);
+       pragma Import (C, Internal, "gnome_app_create_menus");
+ 
     begin
!       Internal (Get_Object(App), Info.all'Address);
     end Create_Menus;
  
     --------------------