blob: 6d4a32d39bc85584e015d8b04fc58007122a912f (
plain)
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
|
package FLTK.Widget.Group.Window is
type Window_Type is new Group_Type with private;
function Create (X, Y, W, H : Integer; Label : String) return Window_Type;
function Create (W, H : in Integer) return Window_Type;
procedure Show (W : in Window_Type);
private
type Window_Type is new Group_Type with null record;
overriding procedure Finalize (This : in out Window_Type);
end FLTK.Widget.Group.Window;
|
