← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-bindings.adb

  • Committer: Bazaar Package Importer
  • Author(s): Luca Falavigna
  • Date: 2008-08-11 09:46:51 UTC
  • mfrom: (6.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20080811094651-9mjd6acwa98ffw5c
Tags: 2.12.0-2ubuntu1
Add lpia to supported architectures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gtk-bindings.adb
 
1
-----------------------------------------------------------------------
 
2
--              GtkAda - Ada95 binding for Gtk+/Gnome                --
 
3
--                                                                   --
 
4
--                Copyright (C) 2006, AdaCore                        --
 
5
--                                                                   --
 
6
-- This library is free software; you can redistribute it and/or     --
 
7
-- modify it under the terms of the GNU General Public               --
 
8
-- License as published by the Free Software Foundation; either      --
 
9
-- version 2 of the License, or (at your option) any later version.  --
 
10
--                                                                   --
 
11
-- This library is distributed in the hope that it will be useful,   --
 
12
-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
 
13
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
 
14
-- General Public License for more details.                          --
 
15
--                                                                   --
 
16
-- You should have received a copy of the GNU General Public         --
 
17
-- License along with this library; if not, write to the             --
 
18
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
 
19
-- Boston, MA 02111-1307, USA.                                       --
 
20
--                                                                   --
 
21
-----------------------------------------------------------------------
 
22
 
 
23
with Gdk.Event;  use Gdk.Event;
 
24
with Gtk.Object; use Gtk.Object;
 
25
with Gdk.Types;  use Gdk.Types;
 
26
 
 
27
package body Gtk.Bindings is
 
28
 
 
29
   ----------------
 
30
   -- Add_Signal --
 
31
   ----------------
 
32
 
 
33
   procedure Add_Signal
 
34
     (Binding_Set : Gtk_Binding_Set;
 
35
      Keyval      : Guint;
 
36
      Modifiers   : Gdk.Types.Gdk_Modifier_Type;
 
37
      Signal_Name : String)
 
38
   is
 
39
      procedure Internal
 
40
        (Binding_Set : Gtk_Binding_Set;
 
41
         Keyval      : Guint;
 
42
         Modifiers   : Gdk_Modifier_Type;
 
43
         Signal_Name : String);
 
44
      pragma Import (C, Internal, "ada_gtk_binding_entry_add_signal_NO");
 
45
   begin
 
46
      Internal (Binding_Set, Keyval, Modifiers, Signal_Name & ASCII.NUL);
 
47
   end Add_Signal;
 
48
 
 
49
   ----------------
 
50
   -- Add_Signal --
 
51
   ----------------
 
52
 
 
53
   procedure Add_Signal
 
54
     (Binding_Set : Gtk_Binding_Set;
 
55
      Keyval      : Guint;
 
56
      Modifiers   : Gdk.Types.Gdk_Modifier_Type;
 
57
      Signal_Name : String;
 
58
      Arg1        : Gint)
 
59
   is
 
60
      procedure Internal
 
61
        (Binding_Set : Gtk_Binding_Set;
 
62
         Keyval      : Guint;
 
63
         Modifiers   : Gdk_Modifier_Type;
 
64
         Signal_Name : String;
 
65
         Arg1        : Gint);
 
66
      pragma Import (C, Internal, "ada_gtk_binding_entry_add_signal_int");
 
67
   begin
 
68
      Internal (Binding_Set, Keyval, Modifiers, Signal_Name & ASCII.NUL, Arg1);
 
69
   end Add_Signal;
 
70
 
 
71
   ----------------
 
72
   -- Add_Signal --
 
73
   ----------------
 
74
 
 
75
   procedure Add_Signal
 
76
     (Binding_Set : Gtk_Binding_Set;
 
77
      Keyval      : Guint;
 
78
      Modifiers   : Gdk.Types.Gdk_Modifier_Type;
 
79
      Signal_Name : String;
 
80
      Arg1        : Gint;
 
81
      Arg2        : Gint)
 
82
   is
 
83
      procedure Internal
 
84
        (Binding_Set : Gtk_Binding_Set;
 
85
         Keyval      : Guint;
 
86
         Modifiers   : Gdk_Modifier_Type;
 
87
         Signal_Name : String;
 
88
         Arg1, Arg2  : Gint);
 
89
      pragma Import (C, Internal, "ada_gtk_binding_entry_add_signal_int_int");
 
90
   begin
 
91
      Internal
 
92
        (Binding_Set, Keyval, Modifiers, Signal_Name & ASCII.NUL, Arg1, Arg2);
 
93
   end Add_Signal;
 
94
 
 
95
   ----------------
 
96
   -- Add_Signal --
 
97
   ----------------
 
98
 
 
99
   procedure Add_Signal
 
100
     (Binding_Set : Gtk_Binding_Set;
 
101
      Keyval      : Guint;
 
102
      Modifiers   : Gdk.Types.Gdk_Modifier_Type;
 
103
      Signal_Name : String;
 
104
      Arg1        : Boolean)
 
105
   is
 
106
      procedure Internal
 
107
        (Binding_Set : Gtk_Binding_Set;
 
108
         Keyval      : Guint;
 
109
         Modifiers   : Gdk_Modifier_Type;
 
110
         Signal_Name : String;
 
111
         Arg1        : Gboolean);
 
112
      pragma Import (C, Internal, "ada_gtk_binding_entry_add_signal_bool");
 
113
   begin
 
114
      Internal
 
115
        (Binding_Set, Keyval, Modifiers, Signal_Name & ASCII.NUL,
 
116
         Boolean'Pos (Arg1));
 
117
   end Add_Signal;
 
118
 
 
119
   --------------------------
 
120
   -- Binding_Set_Activate --
 
121
   --------------------------
 
122
 
 
123
   function Binding_Set_Activate
 
124
     (Binding_Set : Gtk_Binding_Set;
 
125
      Keyval      : Guint;
 
126
      Modifiers   : Gdk_Modifier_Type;
 
127
      Object      : access Gtk_Object_Record'Class)
 
128
      return Boolean
 
129
   is
 
130
      function Internal
 
131
        (Binding_Set : Gtk_Binding_Set;
 
132
         Keyval      : Guint;
 
133
         Modifiers   : Gdk_Modifier_Type;
 
134
         Object      : System.Address)
 
135
         return Gboolean;
 
136
      pragma Import (C, Internal, "gtk_binding_set_activate");
 
137
   begin
 
138
      return Boolean'Val
 
139
        (Internal (Binding_Set, Keyval, Modifiers, Get_Object (Object)));
 
140
   end Binding_Set_Activate;
 
141
 
 
142
   ----------------------
 
143
   -- Binding_Set_Find --
 
144
   ----------------------
 
145
 
 
146
   function Binding_Set_Find (Set_Name : String) return Gtk_Binding_Set is
 
147
      function Internal (Set_Name : String) return Gtk_Binding_Set;
 
148
      pragma Import (C, Internal, "gtk_binding_set_find");
 
149
   begin
 
150
      return Internal (Set_Name & ASCII.NUL);
 
151
   end Binding_Set_Find;
 
152
 
 
153
   ---------------------
 
154
   -- Binding_Set_New --
 
155
   ---------------------
 
156
 
 
157
   function Binding_Set_New (Set_Name : String) return Gtk_Binding_Set is
 
158
      function Internal (Set_Name : String) return Gtk_Binding_Set;
 
159
      pragma Import (C, Internal, "gtk_binding_set_new");
 
160
   begin
 
161
      return Internal (Set_Name & ASCII.NUL);
 
162
   end Binding_Set_New;
 
163
 
 
164
   --------------
 
165
   -- Activate --
 
166
   --------------
 
167
 
 
168
   function Activate
 
169
     (Object    : access Gtk_Object_Record'Class;
 
170
      Keyval    : Guint;
 
171
      Modifiers : Gdk_Modifier_Type)
 
172
      return Boolean
 
173
   is
 
174
      function Internal
 
175
        (Object    : System.Address;
 
176
         Keyval    : Guint;
 
177
         Modifiers : Gdk_Modifier_Type)
 
178
         return Gboolean;
 
179
      pragma Import (C, Internal, "gtk_bindings_activate");
 
180
   begin
 
181
      return Boolean'Val (Internal (Get_Object (Object), Keyval, Modifiers));
 
182
   end Activate;
 
183
 
 
184
   --------------------
 
185
   -- Activate_Event --
 
186
   --------------------
 
187
 
 
188
   function Activate_Event
 
189
     (Object : access Gtk_Object_Record;
 
190
      Event  : Gdk_Event_Key)
 
191
      return Boolean
 
192
   is
 
193
      function Internal
 
194
        (Object : System.Address;
 
195
         Event  : Gdk_Event_Key)
 
196
         return Gboolean;
 
197
      pragma Import (C, Internal, "gtk_bindings_activate_event");
 
198
   begin
 
199
      return Boolean'Val (Internal (Get_Object (Object), Event));
 
200
   end Activate_Event;
 
201
 
 
202
end Gtk.Bindings;