--- a/Change.st Tue Jul 06 12:51:30 1999 +0200
+++ b/Change.st Tue Jul 06 13:18:44 1999 +0200
@@ -57,6 +57,23 @@
^ nil
"Created: / 6.2.1998 / 13:29:35 / cg"
+!
+
+source
+ "return the source of the change"
+
+ ^ source
+
+ "Modified: 15.7.1996 / 09:26:34 / cg"
+!
+
+source:someString
+ "set the source of the change"
+
+ source := someString
+
+ "Modified: / 15.7.1996 / 09:26:34 / cg"
+ "Created: / 16.2.1998 / 13:05:16 / cg"
! !
!Change methodsFor:'comparing'!
@@ -156,27 +173,8 @@
! !
-!Change methodsFor:'source'!
-
-source
- "return the source of the change"
-
- ^ source
-
- "Modified: 15.7.1996 / 09:26:34 / cg"
-!
-
-source:someString
- "set the source of the change"
-
- source := someString
-
- "Modified: / 15.7.1996 / 09:26:34 / cg"
- "Created: / 16.2.1998 / 13:05:16 / cg"
-! !
-
!Change class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.21 1999-07-06 10:36:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.22 1999-07-06 11:18:20 cg Exp $'
! !
--- a/ChangeSet.st Tue Jul 06 12:51:30 1999 +0200
+++ b/ChangeSet.st Tue Jul 06 13:18:44 1999 +0200
@@ -147,6 +147,7 @@
|newChange|
newChange := ClassDefinitionChange class:aClass.
+ newChange source:aClass definition.
self add:newChange
"Modified: 15.7.1996 / 09:27:05 / cg"
@@ -328,16 +329,9 @@
^ true
].
- ((sel startsWith:'subclass:')
- or:[(sel startsWith:'variableSubclass:')
- or:[(sel startsWith:'variableByteSubclass:')
- or:[(sel startsWith:'variableWordSubclass:')
- or:[(sel startsWith:'variableLongSubclass:')
- or:[(sel startsWith:'variableSignedWordSubclass:')
- or:[(sel startsWith:'variableSignedLongSubclass:')
- or:[(sel startsWith:'variableFloatSubclass:')
- or:[(sel startsWith:'variableDoubleSubclass:')
- ]]]]]]]]) ifTrue:[
+ "/ any subclass definiton selector ?
+ (Behavior definitionSelectorFirstParts contains:[:part | sel startsWith:part])
+ ifTrue:[
className := (aTree arguments at:1) evaluate.
change := ClassDefinitionChange new.
change
@@ -490,5 +484,5 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.24 1999-07-06 09:54:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.25 1999-07-06 11:18:44 cg Exp $'
! !
--- a/ClassDefinitionChange.st Tue Jul 06 12:51:30 1999 +0200
+++ b/ClassDefinitionChange.st Tue Jul 06 13:18:44 1999 +0200
@@ -43,16 +43,6 @@
"
! !
-!ClassDefinitionChange methodsFor:'accessing'!
-
-class:aClass
- className := aClass name.
- source := aClass definition
-
- "Created: 3.12.1995 / 14:02:40 / cg"
- "Modified: 3.12.1995 / 14:06:33 / cg"
-! !
-
!ClassDefinitionChange methodsFor:'comparing'!
isForSameAs:changeB
@@ -83,6 +73,14 @@
! !
+!ClassDefinitionChange methodsFor:'printing'!
+
+printWithoutClassOn:aStream
+ aStream nextPutAll:('definition of ' , className)
+
+
+! !
+
!ClassDefinitionChange methodsFor:'queries'!
isClassDefinitionChange
@@ -92,5 +90,5 @@
!ClassDefinitionChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.16 1999-07-06 10:36:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.17 1999-07-06 11:18:30 cg Exp $'
! !
--- a/ClsDefChg.st Tue Jul 06 12:51:30 1999 +0200
+++ b/ClsDefChg.st Tue Jul 06 13:18:44 1999 +0200
@@ -43,16 +43,6 @@
"
! !
-!ClassDefinitionChange methodsFor:'accessing'!
-
-class:aClass
- className := aClass name.
- source := aClass definition
-
- "Created: 3.12.1995 / 14:02:40 / cg"
- "Modified: 3.12.1995 / 14:06:33 / cg"
-! !
-
!ClassDefinitionChange methodsFor:'comparing'!
isForSameAs:changeB
@@ -83,6 +73,14 @@
! !
+!ClassDefinitionChange methodsFor:'printing'!
+
+printWithoutClassOn:aStream
+ aStream nextPutAll:('definition of ' , className)
+
+
+! !
+
!ClassDefinitionChange methodsFor:'queries'!
isClassDefinitionChange
@@ -92,5 +90,5 @@
!ClassDefinitionChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsDefChg.st,v 1.16 1999-07-06 10:36:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsDefChg.st,v 1.17 1999-07-06 11:18:30 cg Exp $'
! !