- Mft : My_Data := (Ch => 'X');
-
- FA : Field_Array (1 .. 9) := (Make (0, 14, "Sample Entry Form"),
- Make (2, 0, "An Enumeration"),
- Make (2, 20, "Numeric 1-10"),
- Make (2, 34, "Only 'X'"),
- Make (5, 0,
- "Multiple Lines offscreen (Scroll)"),
-
- Make (Width => 18, Top => 3, Left => 0),
- Make (Width => 12, Top => 3, Left => 20),
- Make (Width => 12, Top => 3, Left => 34),
- Make (Width => 46, Top => 6, Left => 0,
- Height => 4, Off_Screen => 2)
- );
+ Mft : constant My_Data := (Ch => 'X');
+
+ FA : Field_Array_Access := new Field_Array'
+ (Make (0, 14, "Sample Entry Form"),
+ Make (2, 0, "WeekdayEnumeration"),
+ Make (2, 20, "Numeric 1-10"),
+ Make (2, 34, "Only 'X'"),
+ Make (5, 0, "Multiple Lines offscreen(Scroll)"),
+ Make (Width => 18, Top => 3, Left => 0),
+ Make (Width => 12, Top => 3, Left => 20),
+ Make (Width => 12, Top => 3, Left => 34),
+ Make (Width => 46, Top => 6, Left => 0, Height => 4, Off_Screen => 2),
+ Null_Field
+ );