blob: 43dfef76b3cea554626fc1feb90a49b09ee675c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
CLASS Required
PROCEDURE NEW(Number : INTEGER)
ENDPROCEDURE
ENDCLASS
CLASS Plain
Value : INTEGER
ENDCLASS
CLASS Hidden
PRIVATE PROCEDURE NEW()
ENDPROCEDURE
ENDCLASS
TYPE Wrapped
DECLARE Item : Required
ENDTYPE
DECLARE Missing : Required
DECLARE EmptyArgs : Required()
DECLARE Extra : Plain(1)
DECLARE PrivateObject : Hidden
DECLARE Items : ARRAY[1:2] OF Required
DECLARE Nested : Wrapped
DECLARE Scalar : INTEGER()
|
