tests/examplefiles/example.cls


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

USING Progress.Lang.*.

CLASS Test INHERITS Progress.Sucks:

  DEFINE PRIVATE VARIABLE cTest AS CHAR NO-UNDO.

  CONSTRUCTOR PUBLIC Test():
    SUPER().
    MESSAGE "Why are you punishing yourself by coding in this language?".
  END CONSTRUCTOR.

  METHOD PUBLIC LOGICAL Blowup(INPUT iTime AS INT):
  END.

END CLASS.