16 lines
318 B
OpenEdge ABL
16 lines
318 B
OpenEdge ABL
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.
|