← Back to branch summary

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

« back to all changes in this revision

Viewing changes to testgtk/create_buttons.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:
testgtk/create_buttons.adb
19
19
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
20
20
-- Boston, MA 02111-1307, USA.                                       --
21
21
--                                                                   --
22
22
-----------------------------------------------------------------------
23
23
 
24
24
with Glib;         use Glib;
41
35
 
42
36
   package Button_Cb is new Handlers.Callback (Gtk_Button_Record);
43
37
 
 
38
   procedure Button_Window (Widget : access Gtk_Button_Record'Class);
 
39
   --  Toggles the visibility of Widget
 
40
 
44
41
   ----------
45
42
   -- Help --
46
43
   ----------
58
55
 
59
56
   procedure Button_Window (Widget : access Gtk_Button_Record'Class) is
60
57
   begin
61
 
      --  Toggles the visibility of the window
62
58
      if Visible_Is_Set (Widget) then
63
59
         Hide (Widget);
64
60
      else