--- 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 $'
! !