← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libgtkada2/intrepid

« back to all changes in this revision

Viewing changes to src/gtk-menu.ads

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2008-07-31 18:10:47 UTC
  • mfrom: (1.1.3 upstream)
  • mto: This revision was merged to the branch mainline in revision 7.
  • Revision ID: james.westby@ubuntu.com-20080731181047-6m1y25zjad0p2yjr
Tags: 2.12.0-2

Correct the project files to add a Library_ALI_Dir and correct the
Library_Name.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gtk-menu.ads
2
2
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
3
3
--                                                                   --
4
4
--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
 
5
--                Copyright (C) 2000-2008, AdaCore                   --
5
6
--                                                                   --
6
7
-- This library is free software; you can redistribute it and/or     --
7
8
-- modify it under the terms of the GNU General Public               --
70
70
   type Gtk_Menu_Detach_Func is access procedure
71
71
     (Attach_Widget : access Gtk.Widget.Gtk_Widget_Record'Class;
72
72
      Menu          : access Gtk_Menu_Record'Class);
 
73
   pragma Convention (C, Gtk_Menu_Detach_Func);
73
74
   --  Function called when a menu previously attached to a widget is detached.
74
75
   --  An access to this function is given in Attach_To_Widget.
75
76
 
187
188
   package User_Menu_Popup is
188
189
      --  <doc_ignore>
189
190
      type Gtk_Menu_Position_Func is access procedure
190
 
        (Menu      : access Gtk_Menu_Record;
 
191
        (Menu      : access Gtk_Menu_Record'Class;
191
192
         X         : out Gint;
192
193
         Y         : out Gint;
193
194
         User_Data : access Data_Type);
194
195
      --  </doc_ignore>
195
196
 
196
197
      procedure Popup
197
 
        (Menu              : access Gtk_Menu_Record;
 
198
        (Menu              : access Gtk_Menu_Record'Class;
198
199
         Data              : access Data_Type;
199
200
         Parent_Menu_Shell : in Gtk.Menu_Shell.Gtk_Menu_Shell := null;
200
201
         Parent_Menu_Item  : in Gtk.Menu_Item.Gtk_Menu_Item := null;
386
387
   --
387
388
   --  </signals>
388
389
 
389
 
   Signal_Move_Scroll : constant String := "move_scroll";
 
390
   Signal_Move_Scroll : constant Glib.Signal_Name := "move_scroll";
390
391
 
391
392
private
392
393
   type Gtk_Menu_Record is new Gtk.Menu_Shell.Gtk_Menu_Shell_Record