--- a/CBrowser.st Sun Aug 27 04:00:12 1995 +0200
+++ b/CBrowser.st Mon Aug 28 01:22:45 1995 +0200
@@ -25,7 +25,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.41 1995-08-27 00:36:54 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.42 1995-08-27 23:22:12 claus Exp $
'!
!ChangesBrowser class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.41 1995-08-27 00:36:54 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.42 1995-08-27 23:22:12 claus Exp $
"
!
@@ -65,8 +65,9 @@
Notice:
this needs a total rewrite, to build up a changeSet from the file
- (which did not exist when the ChangesBrowser was written) and
- manipulate that changeSet.
+ (which did not exist when the ChangesBrowser was originally written)
+ and manipulate that changeSet.
+
This way, we get a browser for any upcoming incore changeSets for
free. Also, this will put the chunk analyzation code into Change and
subclasses (where it belongs) and give a better encapsulation and
@@ -344,21 +345,27 @@
changeType := '(remove)'.
changeString := self contractClass:cls selector:sel to:maxLen.
].
- (sel == #category:) ifTrue:[
- (p receiver isMessage
- and:[p receiver selector == #compiledMethodAt:]) ifTrue:[
- p receiver receiver isUnaryMessage ifTrue:[
- cls := p receiver receiver receiver name.
- changeClass := (Smalltalk classNamed:cls) class.
- cls := cls , ' class'.
- ] ifFalse:[
- cls := p receiver receiver name.
- changeClass := (Smalltalk classNamed:cls)
- ].
+ (p isMessage
+ and:[p receiver isMessage
+ and:[p receiver selector == #compiledMethodAt:]]) ifTrue:[
+ p receiver receiver isUnaryMessage ifTrue:[
+ cls := p receiver receiver receiver name.
+ changeClass := (Smalltalk classNamed:cls) class.
+ cls := cls , ' class'.
+ ] ifFalse:[
+ cls := p receiver receiver name.
+ changeClass := (Smalltalk classNamed:cls)
+ ].
+ (sel == #category:) ifTrue:[
sel := (p receiver args at:1) evaluate.
changeType := '(category change)'.
changeString := self contractClass:cls selector:sel to:maxLen.
- ]
+ ].
+ (sel == #privacy:) ifTrue:[
+ sel := (p receiver args at:1) evaluate.
+ changeType := '(privacy change)'.
+ changeString := self contractClass:cls selector:sel to:maxLen.
+ ].
].
(#(#'subclass:'
#'variableSubclass:'
@@ -484,6 +491,8 @@
inBackground ifTrue:[myProcess priority:myPriority].
].
]
+
+ "Modified: 27.8.1995 / 23:06:55 / claus"
!
contractClass:className selector:selector to:maxLen