blob: 586d47dc407cca263b0ee4a084302603d0eb2e45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
CLASS Mixed
OVERLOAD PROCEDURE Set(x : INTEGER)
ENDPROCEDURE
PROCEDURE Set(x : STRING)
ENDPROCEDURE
ENDCLASS
CLASS Required
OVERLOAD PROCEDURE NEW(x : INTEGER)
ENDPROCEDURE
ENDCLASS
CLASS Secret
PRIVATE OVERLOAD PROCEDURE Set(x : INTEGER)
ENDPROCEDURE
PUBLIC OVERLOAD PROCEDURE Set(x : STRING)
ENDPROCEDURE
ENDCLASS
DECLARE item : Required
DECLARE obj : Secret
CALL obj.Set(1)
CALL obj.Set(TRUE)
|
