MCClassDefinition.st
branchjv
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
 !