branch | jv |
changeset 1150 | 167bfe697a5d |
parent 1140 | 61ddff836136 |
child 1156 | b6ca954ebfc9 |
--- a/MCClassDefinition.st Mon Sep 13 15:51:06 2021 +0100 +++ b/MCClassDefinition.st Fri Sep 17 12:22:46 2021 +0100 @@ -138,8 +138,6 @@ ! ! - - !MCClassDefinition methodsFor:'accessing'! actualClass @@ -192,6 +190,16 @@ "Modified: / 12-09-2010 / 17:07:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! +comment:something + comment := something. +! + +commentOrNil + ^ comment + + "Created: / 17-09-2021 / 15:15:38 / Jan Vrany <jan.vrany@labware.com>" +! + commentStamp ^ commentStamp !