← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-list_store.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-list_store.adb
1
1
-----------------------------------------------------------------------
2
2
--              GtkAda - Ada95 binding for Gtk+/Gnome                --
3
3
--                                                                   --
 
4
--                 Copyright (C) 2001-2008, AdaCore                  --
4
5
--                                                                   --
5
6
-- This library is free software; you can redistribute it and/or     --
6
7
-- modify it under the terms of the GNU General Public               --
26
25
with Gtk;            use Gtk;
27
26
with Gtk.Tree_Model; use Gtk.Tree_Model;
28
27
 
 
28
with Glib.Type_Conversion_Hooks;
 
29
 
29
30
package body Gtk.List_Store is
30
31
 
 
32
   package Type_Conversion is new Glib.Type_Conversion_Hooks.Hook_Registrator
 
33
     (Get_Type'Access, Gtk_List_Store_Record);
 
34
   pragma Warnings (Off, Type_Conversion);
 
35
 
31
36
   -------------
32
37
   -- Gtk_New --
33
38
   -------------
145
150
     (Tree_Store : access Gtk_List_Store_Record;
146
151
      Iter       : Gtk.Tree_Model.Gtk_Tree_Iter;
147
152
      Column     : Gint;
 
153
      Value      : Boolean)
 
154
   is
 
155
      procedure Internal
 
156
        (Tree_Store : System.Address;
 
157
         Iter       : Gtk.Tree_Model.Gtk_Tree_Iter;
 
158
         Column     : Gint;
 
159
         Value      : Gboolean);
 
160
      pragma Import (C, Internal, "ada_gtk_list_store_set_boolean");
 
161
 
 
162
   begin
 
163
      Internal (Get_Object (Tree_Store), Iter, Column, Boolean'Pos (Value));
 
164
   end Set;
 
165
 
 
166
   ---------
 
167
   -- Set --
 
168
   ---------
 
169
 
 
170
   procedure Set
 
171
     (Tree_Store : access Gtk_List_Store_Record;
 
172
      Iter       : Gtk.Tree_Model.Gtk_Tree_Iter;
 
173
      Column     : Gint;
148
174
      Value      : Gdk.Pixbuf.Gdk_Pixbuf)
149
175
   is
150
176
      procedure Internal
403
429
      Internal (Get_Object (Store), A, B);
404
430
   end Swap;
405
431
 
406
 
 
407
432
end Gtk.List_Store;