summaryrefslogtreecommitdiff
path: root/src/fltk_binding/fltk-widgets-groups.ads
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2017-04-28 18:21:25 +1000
committerJed Barber <jjbarber@y7mail.com>2017-04-28 18:21:25 +1000
commitecdb8876ea6bdd333386aa7014cc5a8e0abe4c91 (patch)
tree0dc76811c26d32b3d920d85d0a2c22b6ec7d0298 /src/fltk_binding/fltk-widgets-groups.ads
parent73d263cf2bc1d0cfee840df5e6a698eff8b2bd4e (diff)
Moved fltk binding to separate repo
Diffstat (limited to 'src/fltk_binding/fltk-widgets-groups.ads')
-rw-r--r--src/fltk_binding/fltk-widgets-groups.ads82
1 files changed, 0 insertions, 82 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups.ads b/src/fltk_binding/fltk-widgets-groups.ads
deleted file mode 100644
index 57faf87..0000000
--- a/src/fltk_binding/fltk-widgets-groups.ads
+++ /dev/null
@@ -1,82 +0,0 @@
-
-
-private with System;
-
-
-package FLTK.Widgets.Groups is
-
-
- type Group is new Widget with private;
- type Index is new Positive;
-
-
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Group;
-
-
- procedure Add
- (This : in out Group;
- Item : in out Widget'Class);
-
-
- function Child
- (This : in Group;
- Place : in Index)
- return access Widget'Class;
-
-
- function Number_Of_Children
- (This : in Group)
- return Natural;
-
-
- procedure Clear
- (This : in out Group);
-
-
- function Find
- (This : in Group;
- Item : in out Widget'Class)
- return Index;
-
-
- procedure Insert
- (This : in out Group;
- Item : in out Widget'Class;
- Place : in Index);
-
-
- procedure Remove
- (This : in out Group;
- Item : in out Widget'Class);
-
-
- procedure Remove
- (This : in out Group;
- Place : in Index);
-
-
- procedure Set_Resizable
- (This : in out Group;
- Item : in Widget'Class);
-
-
-private
-
-
- type Group is new Widget with null record;
-
-
- overriding procedure Finalize
- (This : in out Group);
-
-
- procedure fl_group_end
- (G : in System.Address);
- pragma Import (C, fl_group_end, "fl_group_end");
-
-
-end FLTK.Widgets.Groups;
-