Behavior.st
branchjv
changeset 18086 33a050555eb1
parent 18079 7b5afc0ad3d5
parent 15667 3892295febb9
child 18093 2b786a9af1d0
--- a/Behavior.st	Wed Aug 21 11:51:30 2013 +0100
+++ b/Behavior.st	Fri Aug 23 11:44:50 2013 +0100
@@ -4804,18 +4804,19 @@
 !
 
 instVarNames
-    "Behavior does not provide this info - generate synthetic names."
+    "return a collection of the instance variable name-strings.
+     Behavior does not provide this info - generate synthetic names."
 
     |superclass superInsts|
 
     superclass := self superclass.
     superclass isNil ifTrue:[
-	superInsts := 0
+        superInsts := 0
     ] ifFalse:[
-	superInsts := superclass instSize
+        superInsts := superclass instSize
     ].
     ^ (superInsts+1 to:self instSize)
-       collect:[:index | self instVarNameForIndex:index]
+        collect:[:index | self instVarNameForIndex:index]
 
     "Modified: / 17-07-2006 / 00:28:40 / cg"
 !
@@ -5010,10 +5011,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.345 2013-07-27 08:46:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.346 2013-08-22 08:42:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.345 2013-07-27 08:46:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.346 2013-08-22 08:42:13 cg Exp $'
 ! !