coffee.pygments/tests/examplefiles/openedge/example.cls

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.