--- a/ClassDescription.st Mon Oct 10 01:20:00 1994 +0100
+++ b/ClassDescription.st Mon Oct 10 01:22:47 1994 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
ClassDescription comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.8 1994-08-05 00:54:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.9 1994-10-10 00:22:34 claus Exp $
'!
!ClassDescription class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.8 1994-08-05 00:54:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.9 1994-10-10 00:22:34 claus Exp $
"
!
@@ -107,7 +107,7 @@
"return a collection of the instance variable name-strings"
instvars isNil ifTrue:[
- ^ OrderedCollection new
+ ^ OrderedCollection new
].
^ instvars asCollectionOfWords
@@ -176,12 +176,12 @@
nameKey := 0.
self allInstVarNames do:[:name |
- nameKey := nameKey bitShift:1.
- (nameKey bitAnd:16r10000) ~~ 0 ifTrue:[
- nameKey := nameKey bitXor:1.
- nameKey := nameKey bitAnd:16rFFFF.
- ].
- nameKey := (nameKey + (name at:1) asciiValue) bitAnd:16rFFFF.
+ nameKey := nameKey bitShift:1.
+ (nameKey bitAnd:16r10000) ~~ 0 ifTrue:[
+ nameKey := nameKey bitXor:1.
+ nameKey := nameKey bitAnd:16rFFFF.
+ ].
+ nameKey := (nameKey + (name at:1) asciiValue) bitAnd:16rFFFF.
].
value := value + (nameKey bitShift:14).
signature := value.
@@ -262,10 +262,14 @@
"return a string for display in inspoectors"
category == #obsolete ifTrue:[
- "add obsolete - to make life easier ..."
- ^ super displayString , ' (obsolete)'
+ "add obsolete - to make life easier ..."
+ ^ self name "super displayString" , ' (obsolete)'
].
- ^ super displayString
+ category == #removed ifTrue:[
+ "add removed - to make life easier ..."
+ ^ self name "super displayString" , ' (removed)'
+ ].
+ ^ self name "super displayString"
! !
!ClassDescription methodsFor:'private'!
@@ -275,10 +279,10 @@
of all superclasses to the argument, aCollection. Return aCollection"
(superclass notNil) ifTrue:[
- superclass addAllInstVarNamesTo:aCollection
+ superclass addAllInstVarNamesTo:aCollection
].
instvars notNil ifTrue:[
- aCollection addAll:(instvars asCollectionOfWords).
+ aCollection addAll:(instvars asCollectionOfWords).
].
^ aCollection
! !