class: Behavior
authorClaus Gittinger <cg@exept.de>
Mon, 09 Mar 2015 11:06:36 +0100
changeset 17591 2a5e2a817c41
parent 17590 27334869fa8a
child 17592 469b9ab4d3de
class: Behavior comment/format in: #theNonMetaclass
Behavior.st
--- a/Behavior.st	Fri Mar 06 13:17:29 2015 +0100
+++ b/Behavior.st	Mon Mar 09 11:06:36 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
@@ -23,7 +25,7 @@
 !Behavior class methodsFor:'documentation'!
 
 VS
-    ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.315 2011/11/29 10:20:21 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.315 2011/11/29 10:20:21 cg Exp §'
 !
 
 copyright
@@ -3548,7 +3550,8 @@
 theNonMetaclass
     "return the nonMetaClass of the class-meta pair.
      Here, return myself, because I am the nonMetaclass.
-     Also implemented in my metaclass, which also returns me."
+     Also implemented in my metaclass, which also returns me.
+     Sigh: ST/X naming; Squeak calls this theNonMetaClass"
 
     ^ self
 
@@ -5072,10 +5075,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.366 2015-02-20 21:43:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.367 2015-03-09 10:06:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.366 2015-02-20 21:43:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.367 2015-03-09 10:06:36 cg Exp $'
 ! !