1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
|
-----------------------------------------------------------------------
-- GtkAda - Ada95 binding for the Gimp Toolkit --
-- --
-- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 2000-2002 ACT-Europe --
-- --
-- This library is free software; you can redistribute it and/or --
-- modify it under the terms of the GNU General Public --
-- License as published by the Free Software Foundation; either --
-- version 2 of the License, or (at your option) any later version. --
-- --
-- This library is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public --
-- License along with this library; if not, write to the --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330, --
-- Boston, MA 02111-1307, USA. --
-- --
-- As a special exception, if other files instantiate generics from --
-- this unit, or you link this unit with other files to produce an --
-- executable, this unit does not by itself cause the resulting --
-- executable to be covered by the GNU General Public License. This --
-- exception does not however invalidate any other reasons why the --
-- executable file might be covered by the GNU Public License. --
-----------------------------------------------------------------------
with Glib; use Glib;
with Gtk.Enums; use Gtk.Enums;
with Gtk.Scrolled_Window; use Gtk.Scrolled_Window;
with Gtk.Table; use Gtk.Table;
with Gtk.Toggle_Button; use Gtk.Toggle_Button;
with Gtk; use Gtk;
package body Create_Scrolled is
----------
-- Help --
----------
function Help return String is
begin
return "This demo shows how a @bGtk_Scrolled_Window@B can be used to"
& " provide some scrolling in any other widget. In this example, the"
& " @bGtk_Scrolled_Window@B contains a Gtk_Table, that is"
& " automatically scrolled when the scrollbars are moved."
& ASCII.LF
& "No explicit signal is required in this demo, everything is done"
& " through @bGtk_Adjustment@Bs, that contain the current value of the"
& " @bGtK_Scrollbar@Bs and also specify the area to display in the"
& " @bGtk_Table@B.";
end Help;
---------
-- Run --
---------
procedure Run (Frame : access Gtk.Frame.Gtk_Frame_Record'Class) is
Table : Gtk_Table;
Scrolled : Gtk_Scrolled_Window;
Toggle : Gtk_Toggle_Button;
begin
Set_Label (Frame, "Scrolled Window");
Gtk_New (Scrolled);
Set_Border_Width (Scrolled, Border_Width => 10);
Set_Policy (Scrolled,
H_Scrollbar_Policy => Policy_Automatic,
V_Scrollbar_Policy => Policy_Automatic);
Add (Frame, Scrolled);
Gtk_New (Table,
Rows => 20,
Columns => 20,
Homogeneous => False);
Set_Row_Spacings (Table, Spacing => 10);
Set_Col_Spacings (Table, Spacing => 10);
Add_With_Viewport (Scrolled, Table);
Set_Focus_Hadjustment (Table, Get_Hadjustment (Scrolled));
Set_Focus_Vadjustment (Table, Get_Vadjustment (Scrolled));
for I in 0 .. 19 loop
for J in 0 .. 19 loop
Gtk_New (Toggle, "button (" & Integer'Image (I)
& "," & Integer'Image (J) & ")");
Attach_Defaults (Table, Toggle, Guint (I), Guint (I + 1),
Guint (J), Guint (J + 1));
end loop;
end loop;
Show_All (Frame);
end Run;
end Create_Scrolled;
|