--- a/Class.st Fri Feb 09 18:29:16 1996 +0100
+++ b/Class.st Fri Feb 09 18:33:41 1996 +0100
@@ -2185,74 +2185,76 @@
|source sortedSelectors first privacy interestingMethods|
methodArray notNil ifTrue:[
- interestingMethods := OrderedCollection new.
- methodArray do:[:aMethod |
- |wanted|
-
- (aCategory = aMethod category) ifTrue:[
- skippedMethods notNil ifTrue:[
- wanted := (skippedMethods includesIdentical:aMethod) not
- ] ifFalse:[
- savedMethods notNil ifTrue:[
- wanted := (savedMethods includesIdentical:aMethod).
- ] ifFalse:[
- wanted := true
- ]
- ].
- wanted ifTrue:[interestingMethods add:aMethod].
- ]
- ].
- interestingMethods notEmpty ifTrue:[
- first := true.
- privacy := nil.
-
- "/
- "/ sort by selector
- "/
- sortedSelectors := interestingMethods collect:[:m | self selectorAtMethod:m].
- sortedSelectors sortWith:interestingMethods.
-
- interestingMethods do:[:aMethod |
- first ifFalse:[
- privacy ~~ aMethod privacy ifTrue:[
- first := true.
- aStream space.
- aStream nextPutChunkSeparator.
- ].
- aStream cr; cr
- ].
-
- privacy := aMethod privacy.
-
- first ifTrue:[
- aStream nextPutChunkSeparator.
- self printClassNameOn:aStream.
- privacy ~~ #public ifTrue:[
- aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'''.
- ] ifFalse:[
- aStream nextPutAll:' methodsFor:'''.
- ].
- aCategory notNil ifTrue:[
- aStream nextPutAll:aCategory
- ].
- aStream nextPut:$'; nextPutChunkSeparator; cr; cr.
- first := false.
- ].
- source := aMethod source.
- source isNil ifTrue:[
- FileOutErrorSignal raiseRequestWith:'no source for method'
- ] ifFalse:[
- aStream nextChunkPut:source.
- ].
- ].
- aStream space.
- aStream nextPutChunkSeparator.
- aStream cr
- ]
+ interestingMethods := OrderedCollection new.
+ methodArray do:[:aMethod |
+ |wanted|
+
+ (aCategory = aMethod category) ifTrue:[
+ skippedMethods notNil ifTrue:[
+ wanted := (skippedMethods includesIdentical:aMethod) not
+ ] ifFalse:[
+ savedMethods notNil ifTrue:[
+ wanted := (savedMethods includesIdentical:aMethod).
+ ] ifFalse:[
+ wanted := true
+ ]
+ ].
+ wanted ifTrue:[interestingMethods add:aMethod].
+ ]
+ ].
+ interestingMethods notEmpty ifTrue:[
+ first := true.
+ privacy := nil.
+
+ "/
+ "/ sort by selector
+ "/
+ sortedSelectors := interestingMethods collect:[:m | self selectorAtMethod:m].
+ sortedSelectors sortWith:interestingMethods.
+
+ interestingMethods do:[:aMethod |
+ first ifFalse:[
+ privacy ~~ aMethod privacy ifTrue:[
+ first := true.
+ aStream space.
+ aStream nextPutChunkSeparator.
+ ].
+ aStream cr; cr
+ ].
+
+ privacy := aMethod privacy.
+
+ first ifTrue:[
+ aStream nextPutChunkSeparator.
+ self printClassNameOn:aStream.
+ privacy ~~ #public ifTrue:[
+ aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'''.
+ ] ifFalse:[
+ aStream nextPutAll:' methodsFor:'''.
+ ].
+ aCategory notNil ifTrue:[
+ aStream nextPutAll:aCategory
+ ].
+ aStream nextPut:$'; nextPutChunkSeparator; cr; cr.
+ first := false.
+ ].
+ source := aMethod source.
+ source isNil ifTrue:[
+ FileOutErrorSignal
+ raiseRequestWith:self
+ errorString:'no source for method'
+ ] ifFalse:[
+ aStream nextChunkPut:source.
+ ].
+ ].
+ aStream space.
+ aStream nextPutChunkSeparator.
+ aStream cr
+ ]
]
"Modified: 28.8.1995 / 14:30:41 / claus"
- "Modified: 15.11.1995 / 12:45:54 / cg"
+ "Modified: 9.2.1996 / 17:59:13 / cg"
!
fileOutCategory:aCategory on:aStream
@@ -3843,6 +3845,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.136 1996-02-09 16:14:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.137 1996-02-09 17:33:41 cg Exp $'
! !
Class initialize!