--- a/ClassDescr.st Fri Mar 19 08:17:17 1999 +0100
+++ b/ClassDescr.st Fri Mar 19 08:18:32 1999 +0100
@@ -876,16 +876,17 @@
"add a method-change-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangePerform:#addChangeRecordForMethod:to: with:aMethod.
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addMethodChange:aMethod in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangePerform:#addChangeRecordForMethod:to: with:aMethod.
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addMethodChange:aMethod in:self
+ ]
]
- "Modified: 20.1.1997 / 12:36:02 / cg"
- "Created: 2.4.1997 / 01:02:16 / stefan"
+ "Modified: / 20.1.1997 / 12:36:02 / cg"
+ "Created: / 2.4.1997 / 01:02:16 / stefan"
+ "Modified: / 18.3.1999 / 18:16:41 / stefan"
!
addChangeRecordForMethodCategory:aMethod category:aString
@@ -893,19 +894,19 @@
"add a methodCategory-change-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangeDo:[:aStream |
- self addChangeRecordForMethodCategory:aMethod category:aString to:aStream.
- ].
-
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addMethodCategoryChange:aMethod category:aString in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangeDo:[:aStream |
+ self addChangeRecordForMethodCategory:aMethod category:aString to:aStream.
+ ].
+
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addMethodCategoryChange:aMethod category:aString in:self
+ ]
]
- "Modified: 20.1.1997 / 12:36:05 / cg"
- "Modified: 2.4.1997 / 17:30:20 / stefan"
+ "Modified: / 20.1.1997 / 12:36:05 / cg"
+ "Modified: / 18.3.1999 / 18:16:50 / stefan"
!
addChangeRecordForMethodPrivacy:aMethod
@@ -913,17 +914,18 @@
"add a method-privacy-change-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangePerform:#addChangeRecordForMethodPrivacy:to: with:aMethod.
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addMethodPrivacyChange:aMethod in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangePerform:#addChangeRecordForMethodPrivacy:to: with:aMethod.
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addMethodPrivacyChange:aMethod in:self
+ ]
]
- "Modified: 27.8.1995 / 22:47:32 / claus"
- "Modified: 20.1.1997 / 12:36:08 / cg"
- "Created: 2.4.1997 / 17:30:33 / stefan"
+ "Modified: / 27.8.1995 / 22:47:32 / claus"
+ "Modified: / 20.1.1997 / 12:36:08 / cg"
+ "Created: / 2.4.1997 / 17:30:33 / stefan"
+ "Modified: / 18.3.1999 / 18:16:58 / stefan"
!
addChangeRecordForRemoveSelector:aSelector
@@ -931,17 +933,18 @@
"add a method-remove-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
-
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addRemoveSelectorChange:aSelector in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
+
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addRemoveSelectorChange:aSelector in:self
+ ]
]
"Created: / 2.4.1997 / 17:30:47 / stefan"
"Modified: / 16.2.1998 / 12:45:45 / cg"
+ "Modified: / 18.3.1999 / 18:17:02 / stefan"
!
addChangeRecordForRenameCategory:oldCategory to:newCategory
@@ -949,14 +952,15 @@
"add a category-rename record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangeDo:[:aStream |
- self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangeDo:[:aStream |
+ self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
+ ]
]
- "Modified: 24.1.1997 / 19:10:57 / cg"
- "Created: 2.4.1997 / 17:31:03 / stefan"
+ "Modified: / 24.1.1997 / 19:10:57 / cg"
+ "Created: / 2.4.1997 / 17:31:03 / stefan"
+ "Modified: / 18.3.1999 / 18:17:08 / stefan"
!
addChangeTimeStampTo:aStream
@@ -978,14 +982,15 @@
"add an info-record (snapshot, class fileOut etc.) to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangeWithTimeStamp:false
- perform:#addInfoRecord:to:
- with:aMessage.
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:aMessage.
]
- "Modified: 24.1.1997 / 19:13:14 / cg"
- "Created: 2.4.1997 / 17:34:18 / stefan"
+ "Modified: / 24.1.1997 / 19:13:14 / cg"
+ "Created: / 2.4.1997 / 17:34:18 / stefan"
+ "Modified: / 18.3.1999 / 18:17:13 / stefan"
!
changesStream
@@ -1795,17 +1800,17 @@
|nm|
- Class fileOutNameSpaceQuerySignal raise == false ifTrue:[
- nm := self nameWithoutNameSpacePrefix
+ Class fileOutNameSpaceQuerySignal query == false ifTrue:[
+ nm := self nameWithoutNameSpacePrefix
] ifFalse:[
- nm := self name.
+ nm := self name.
].
aStream nextPutAll:nm.
- "Modified: 3.1.1997 / 20:41:26 / cg"
- "Created: 1.4.1997 / 16:06:57 / stefan"
- "Modified: 1.4.1997 / 16:19:22 / stefan"
+ "Modified: / 3.1.1997 / 20:41:26 / cg"
+ "Created: / 1.4.1997 / 16:06:57 / stefan"
+ "Modified: / 18.3.1999 / 18:17:21 / stefan"
!
printHierarchyAnswerIndentOn:aStream
@@ -2413,29 +2418,30 @@
The subclass will have indexed variables if the receiving-class has."
self isVariable ifFalse:[
- ^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:false
- words:true
- pointers:true
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
+ ^ self class
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:false
+ words:true
+ pointers:true
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
].
^ self
- perform:(self definitionSelector)
- withArguments:(Array with:nameSymbol
- with:instVarNameString
- with:classVarString
- with:pool
- with:cat).
-
- "Modified: 8.3.1997 / 00:41:08 / cg"
+ perform:(self definitionSelector)
+ withArguments:(Array with:nameSymbol
+ with:instVarNameString
+ with:classVarString
+ with:pool
+ with:cat).
+
+ "Modified: / 8.3.1997 / 00:41:08 / cg"
+ "Modified: / 18.3.1999 / 18:18:25 / stefan"
!
subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat inEnvironment:aNameSpace
@@ -2479,28 +2485,29 @@
in which the subclass has indexable byte-sized nonpointer variables"
self isVariable ifTrue:[
- self isBytes ifFalse:[
- ^ self error:
- 'cannot make a variable byte subclass of a variable non-byte class'
- ].
+ self isBytes ifFalse:[
+ ^ self error:
+ 'cannot make a variable byte subclass of a variable non-byte class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:true
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:18 / cg"
- "Modified: 6.11.1996 / 22:48:18 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:true
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:18 / cg"
+ "Modified: / 6.11.1996 / 22:48:18 / cg"
+ "Modified: / 18.3.1999 / 18:18:38 / stefan"
!
variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2509,28 +2516,29 @@
in which the subclass has indexable double-sized nonpointer variables"
self isVariable ifTrue:[
- self isDoubles ifFalse:[
- ^ self error:
- 'cannot make a variable double subclass of a variable non-double class'
- ].
+ self isDoubles ifFalse:[
+ ^ self error:
+ 'cannot make a variable double subclass of a variable non-double class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#double
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:21 / cg"
- "Modified: 6.11.1996 / 22:48:22 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#double
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:21 / cg"
+ "Modified: / 6.11.1996 / 22:48:22 / cg"
+ "Modified: / 18.3.1999 / 18:18:54 / stefan"
!
variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2539,28 +2547,29 @@
in which the subclass has indexable float-sized nonpointer variables"
self isVariable ifTrue:[
- self isFloats ifFalse:[
- ^ self error:
- 'cannot make a variable float subclass of a variable non-float class'
- ].
+ self isFloats ifFalse:[
+ ^ self error:
+ 'cannot make a variable float subclass of a variable non-float class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#float
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:24 / cg"
- "Modified: 6.11.1996 / 22:48:26 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#float
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:24 / cg"
+ "Modified: / 6.11.1996 / 22:48:26 / cg"
+ "Modified: / 18.3.1999 / 18:19:02 / stefan"
!
variableLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2568,25 +2577,27 @@
in which the subclass has indexable unsigned long-long-sized nonpointer variables"
self isVariable ifTrue:[
- self isLongLongs ifFalse:[
- ^ self error:
- 'cannot make a variable long-long subclass of a variable non-long-long class'
- ].
+ self isLongLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable long-long subclass of a variable non-long-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#longLong
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#longLong
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Modified: / 18.3.1999 / 18:19:17 / stefan"
!
variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2594,28 +2605,29 @@
in which the subclass has indexable long-sized nonpointer variables"
self isVariable ifTrue:[
- self isLongs ifFalse:[
- ^ self error:
- 'cannot make a variable long subclass of a variable non-long class'
- ].
+ self isLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable long subclass of a variable non-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#long
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:27 / cg"
- "Modified: 6.11.1996 / 22:48:29 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#long
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:27 / cg"
+ "Modified: / 6.11.1996 / 22:48:29 / cg"
+ "Modified: / 18.3.1999 / 18:19:28 / stefan"
!
variableSignedLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2623,25 +2635,27 @@
in which the subclass has indexable signed long-long-sized nonpointer variables"
self isVariable ifTrue:[
- self isSignedLongLongs ifFalse:[
- ^ self error:
- 'cannot make a variable signed long-long subclass of a variable non-long-long class'
- ].
+ self isSignedLongLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable signed long-long subclass of a variable non-long-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#signedLongLong
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#signedLongLong
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Modified: / 18.3.1999 / 18:19:35 / stefan"
!
variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2649,28 +2663,29 @@
in which the subclass has indexable signed long-sized nonpointer variables"
self isVariable ifTrue:[
- self isSignedLongs ifFalse:[
- ^ self error:
- 'cannot make a variable signed long subclass of a variable non-long class'
- ].
+ self isSignedLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable signed long subclass of a variable non-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#signedLong
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:31 / cg"
- "Modified: 6.11.1996 / 22:48:32 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#signedLong
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:31 / cg"
+ "Modified: / 6.11.1996 / 22:48:32 / cg"
+ "Modified: / 18.3.1999 / 18:19:41 / stefan"
!
variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2678,28 +2693,29 @@
in which the subclass has indexable word-sized signed nonpointer variables"
self isVariable ifTrue:[
- self isSignedWords ifFalse:[
- ^ self error:
- 'cannot make a variable signed word subclass of a variable non-word class'
- ].
+ self isSignedWords ifFalse:[
+ ^ self error:
+ 'cannot make a variable signed word subclass of a variable non-word class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#signedWord
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:34 / cg"
- "Modified: 6.11.1996 / 22:48:35 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#signedWord
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:34 / cg"
+ "Modified: / 6.11.1996 / 22:48:35 / cg"
+ "Modified: / 18.3.1999 / 18:19:51 / stefan"
!
variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2707,28 +2723,29 @@
in which the subclass has indexable pointer variables"
self isVariable ifTrue:[
- self isPointers ifFalse:[
- ^ self error:
- 'cannot make a variable pointer subclass of a variable non-pointer class'
- ]
+ self isPointers ifFalse:[
+ ^ self error:
+ 'cannot make a variable pointer subclass of a variable non-pointer class'
+ ]
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:true
- words:false
- pointers:true
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:37 / cg"
- "Modified: 6.11.1996 / 22:48:40 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:true
+ words:false
+ pointers:true
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:37 / cg"
+ "Modified: / 6.11.1996 / 22:48:40 / cg"
+ "Modified: / 18.3.1999 / 18:20:01 / stefan"
!
variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2736,28 +2753,29 @@
in which the subclass has indexable word-sized nonpointer variables"
self isVariable ifTrue:[
- self isWords ifFalse:[
- ^ self error:
- 'cannot make a variable word subclass of a variable non-word class'
- ].
+ self isWords ifFalse:[
+ ^ self error:
+ 'cannot make a variable word subclass of a variable non-word class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:true
- words:true
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:40 / cg"
- "Modified: 6.11.1996 / 22:48:43 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:true
+ words:true
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:40 / cg"
+ "Modified: / 6.11.1996 / 22:48:43 / cg"
+ "Modified: / 18.3.1999 / 18:20:07 / stefan"
! !
!ClassDescription methodsFor:'subclass creation - private classes'!
@@ -3203,6 +3221,6 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.79 1999-03-17 15:53:29 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.80 1999-03-19 07:18:32 stefan Exp $'
! !
ClassDescription initialize!
--- a/ClassDescription.st Fri Mar 19 08:17:17 1999 +0100
+++ b/ClassDescription.st Fri Mar 19 08:18:32 1999 +0100
@@ -876,16 +876,17 @@
"add a method-change-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangePerform:#addChangeRecordForMethod:to: with:aMethod.
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addMethodChange:aMethod in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangePerform:#addChangeRecordForMethod:to: with:aMethod.
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addMethodChange:aMethod in:self
+ ]
]
- "Modified: 20.1.1997 / 12:36:02 / cg"
- "Created: 2.4.1997 / 01:02:16 / stefan"
+ "Modified: / 20.1.1997 / 12:36:02 / cg"
+ "Created: / 2.4.1997 / 01:02:16 / stefan"
+ "Modified: / 18.3.1999 / 18:16:41 / stefan"
!
addChangeRecordForMethodCategory:aMethod category:aString
@@ -893,19 +894,19 @@
"add a methodCategory-change-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangeDo:[:aStream |
- self addChangeRecordForMethodCategory:aMethod category:aString to:aStream.
- ].
-
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addMethodCategoryChange:aMethod category:aString in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangeDo:[:aStream |
+ self addChangeRecordForMethodCategory:aMethod category:aString to:aStream.
+ ].
+
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addMethodCategoryChange:aMethod category:aString in:self
+ ]
]
- "Modified: 20.1.1997 / 12:36:05 / cg"
- "Modified: 2.4.1997 / 17:30:20 / stefan"
+ "Modified: / 20.1.1997 / 12:36:05 / cg"
+ "Modified: / 18.3.1999 / 18:16:50 / stefan"
!
addChangeRecordForMethodPrivacy:aMethod
@@ -913,17 +914,18 @@
"add a method-privacy-change-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangePerform:#addChangeRecordForMethodPrivacy:to: with:aMethod.
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addMethodPrivacyChange:aMethod in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangePerform:#addChangeRecordForMethodPrivacy:to: with:aMethod.
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addMethodPrivacyChange:aMethod in:self
+ ]
]
- "Modified: 27.8.1995 / 22:47:32 / claus"
- "Modified: 20.1.1997 / 12:36:08 / cg"
- "Created: 2.4.1997 / 17:30:33 / stefan"
+ "Modified: / 27.8.1995 / 22:47:32 / claus"
+ "Modified: / 20.1.1997 / 12:36:08 / cg"
+ "Created: / 2.4.1997 / 17:30:33 / stefan"
+ "Modified: / 18.3.1999 / 18:16:58 / stefan"
!
addChangeRecordForRemoveSelector:aSelector
@@ -931,17 +933,18 @@
"add a method-remove-record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
-
- "this test allows a smalltalk without Projects/ChangeSets"
- Project notNil ifTrue:[
- Project addRemoveSelectorChange:aSelector in:self
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
+
+ "this test allows a smalltalk without Projects/ChangeSets"
+ Project notNil ifTrue:[
+ Project addRemoveSelectorChange:aSelector in:self
+ ]
]
"Created: / 2.4.1997 / 17:30:47 / stefan"
"Modified: / 16.2.1998 / 12:45:45 / cg"
+ "Modified: / 18.3.1999 / 18:17:02 / stefan"
!
addChangeRecordForRenameCategory:oldCategory to:newCategory
@@ -949,14 +952,15 @@
"add a category-rename record to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangeDo:[:aStream |
- self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
- ]
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangeDo:[:aStream |
+ self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
+ ]
]
- "Modified: 24.1.1997 / 19:10:57 / cg"
- "Created: 2.4.1997 / 17:31:03 / stefan"
+ "Modified: / 24.1.1997 / 19:10:57 / cg"
+ "Created: / 2.4.1997 / 17:31:03 / stefan"
+ "Modified: / 18.3.1999 / 18:17:08 / stefan"
!
addChangeTimeStampTo:aStream
@@ -978,14 +982,15 @@
"add an info-record (snapshot, class fileOut etc.) to the changes file"
- UpdateChangeFileQuerySignal raise ifTrue:[
- self writingChangeWithTimeStamp:false
- perform:#addInfoRecord:to:
- with:aMessage.
+ UpdateChangeFileQuerySignal query ifTrue:[
+ self writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:aMessage.
]
- "Modified: 24.1.1997 / 19:13:14 / cg"
- "Created: 2.4.1997 / 17:34:18 / stefan"
+ "Modified: / 24.1.1997 / 19:13:14 / cg"
+ "Created: / 2.4.1997 / 17:34:18 / stefan"
+ "Modified: / 18.3.1999 / 18:17:13 / stefan"
!
changesStream
@@ -1795,17 +1800,17 @@
|nm|
- Class fileOutNameSpaceQuerySignal raise == false ifTrue:[
- nm := self nameWithoutNameSpacePrefix
+ Class fileOutNameSpaceQuerySignal query == false ifTrue:[
+ nm := self nameWithoutNameSpacePrefix
] ifFalse:[
- nm := self name.
+ nm := self name.
].
aStream nextPutAll:nm.
- "Modified: 3.1.1997 / 20:41:26 / cg"
- "Created: 1.4.1997 / 16:06:57 / stefan"
- "Modified: 1.4.1997 / 16:19:22 / stefan"
+ "Modified: / 3.1.1997 / 20:41:26 / cg"
+ "Created: / 1.4.1997 / 16:06:57 / stefan"
+ "Modified: / 18.3.1999 / 18:17:21 / stefan"
!
printHierarchyAnswerIndentOn:aStream
@@ -2413,29 +2418,30 @@
The subclass will have indexed variables if the receiving-class has."
self isVariable ifFalse:[
- ^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:false
- words:true
- pointers:true
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
+ ^ self class
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:false
+ words:true
+ pointers:true
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
].
^ self
- perform:(self definitionSelector)
- withArguments:(Array with:nameSymbol
- with:instVarNameString
- with:classVarString
- with:pool
- with:cat).
-
- "Modified: 8.3.1997 / 00:41:08 / cg"
+ perform:(self definitionSelector)
+ withArguments:(Array with:nameSymbol
+ with:instVarNameString
+ with:classVarString
+ with:pool
+ with:cat).
+
+ "Modified: / 8.3.1997 / 00:41:08 / cg"
+ "Modified: / 18.3.1999 / 18:18:25 / stefan"
!
subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat inEnvironment:aNameSpace
@@ -2479,28 +2485,29 @@
in which the subclass has indexable byte-sized nonpointer variables"
self isVariable ifTrue:[
- self isBytes ifFalse:[
- ^ self error:
- 'cannot make a variable byte subclass of a variable non-byte class'
- ].
+ self isBytes ifFalse:[
+ ^ self error:
+ 'cannot make a variable byte subclass of a variable non-byte class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:true
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:18 / cg"
- "Modified: 6.11.1996 / 22:48:18 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:true
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:18 / cg"
+ "Modified: / 6.11.1996 / 22:48:18 / cg"
+ "Modified: / 18.3.1999 / 18:18:38 / stefan"
!
variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2509,28 +2516,29 @@
in which the subclass has indexable double-sized nonpointer variables"
self isVariable ifTrue:[
- self isDoubles ifFalse:[
- ^ self error:
- 'cannot make a variable double subclass of a variable non-double class'
- ].
+ self isDoubles ifFalse:[
+ ^ self error:
+ 'cannot make a variable double subclass of a variable non-double class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#double
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:21 / cg"
- "Modified: 6.11.1996 / 22:48:22 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#double
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:21 / cg"
+ "Modified: / 6.11.1996 / 22:48:22 / cg"
+ "Modified: / 18.3.1999 / 18:18:54 / stefan"
!
variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2539,28 +2547,29 @@
in which the subclass has indexable float-sized nonpointer variables"
self isVariable ifTrue:[
- self isFloats ifFalse:[
- ^ self error:
- 'cannot make a variable float subclass of a variable non-float class'
- ].
+ self isFloats ifFalse:[
+ ^ self error:
+ 'cannot make a variable float subclass of a variable non-float class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#float
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:24 / cg"
- "Modified: 6.11.1996 / 22:48:26 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#float
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:24 / cg"
+ "Modified: / 6.11.1996 / 22:48:26 / cg"
+ "Modified: / 18.3.1999 / 18:19:02 / stefan"
!
variableLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2568,25 +2577,27 @@
in which the subclass has indexable unsigned long-long-sized nonpointer variables"
self isVariable ifTrue:[
- self isLongLongs ifFalse:[
- ^ self error:
- 'cannot make a variable long-long subclass of a variable non-long-long class'
- ].
+ self isLongLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable long-long subclass of a variable non-long-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#longLong
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#longLong
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Modified: / 18.3.1999 / 18:19:17 / stefan"
!
variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2594,28 +2605,29 @@
in which the subclass has indexable long-sized nonpointer variables"
self isVariable ifTrue:[
- self isLongs ifFalse:[
- ^ self error:
- 'cannot make a variable long subclass of a variable non-long class'
- ].
+ self isLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable long subclass of a variable non-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#long
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:27 / cg"
- "Modified: 6.11.1996 / 22:48:29 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#long
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:27 / cg"
+ "Modified: / 6.11.1996 / 22:48:29 / cg"
+ "Modified: / 18.3.1999 / 18:19:28 / stefan"
!
variableSignedLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2623,25 +2635,27 @@
in which the subclass has indexable signed long-long-sized nonpointer variables"
self isVariable ifTrue:[
- self isSignedLongLongs ifFalse:[
- ^ self error:
- 'cannot make a variable signed long-long subclass of a variable non-long-long class'
- ].
+ self isSignedLongLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable signed long-long subclass of a variable non-long-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#signedLongLong
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#signedLongLong
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Modified: / 18.3.1999 / 18:19:35 / stefan"
!
variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2649,28 +2663,29 @@
in which the subclass has indexable signed long-sized nonpointer variables"
self isVariable ifTrue:[
- self isSignedLongs ifFalse:[
- ^ self error:
- 'cannot make a variable signed long subclass of a variable non-long class'
- ].
+ self isSignedLongs ifFalse:[
+ ^ self error:
+ 'cannot make a variable signed long subclass of a variable non-long class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#signedLong
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:31 / cg"
- "Modified: 6.11.1996 / 22:48:32 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#signedLong
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:31 / cg"
+ "Modified: / 6.11.1996 / 22:48:32 / cg"
+ "Modified: / 18.3.1999 / 18:19:41 / stefan"
!
variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2678,28 +2693,29 @@
in which the subclass has indexable word-sized signed nonpointer variables"
self isVariable ifTrue:[
- self isSignedWords ifFalse:[
- ^ self error:
- 'cannot make a variable signed word subclass of a variable non-word class'
- ].
+ self isSignedWords ifFalse:[
+ ^ self error:
+ 'cannot make a variable signed word subclass of a variable non-word class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:#signedWord
- words:false
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:34 / cg"
- "Modified: 6.11.1996 / 22:48:35 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:#signedWord
+ words:false
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:34 / cg"
+ "Modified: / 6.11.1996 / 22:48:35 / cg"
+ "Modified: / 18.3.1999 / 18:19:51 / stefan"
!
variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2707,28 +2723,29 @@
in which the subclass has indexable pointer variables"
self isVariable ifTrue:[
- self isPointers ifFalse:[
- ^ self error:
- 'cannot make a variable pointer subclass of a variable non-pointer class'
- ]
+ self isPointers ifFalse:[
+ ^ self error:
+ 'cannot make a variable pointer subclass of a variable non-pointer class'
+ ]
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:true
- words:false
- pointers:true
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:37 / cg"
- "Modified: 6.11.1996 / 22:48:40 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:true
+ words:false
+ pointers:true
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:37 / cg"
+ "Modified: / 6.11.1996 / 22:48:40 / cg"
+ "Modified: / 18.3.1999 / 18:20:01 / stefan"
!
variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
@@ -2736,28 +2753,29 @@
in which the subclass has indexable word-sized nonpointer variables"
self isVariable ifTrue:[
- self isWords ifFalse:[
- ^ self error:
- 'cannot make a variable word subclass of a variable non-word class'
- ].
+ self isWords ifFalse:[
+ ^ self error:
+ 'cannot make a variable word subclass of a variable non-word class'
+ ].
].
^ self class
- name:nameSymbol
- inEnvironment:(Class nameSpaceQuerySignal raise)
- subclassOf:self
- instanceVariableNames:instVarNameString
- variable:true
- words:true
- pointers:false
- classVariableNames:classVarString
- poolDictionaries:pool
- category:cat
- comment:nil
- changed:true
-
- "Created: 12.10.1996 / 19:18:40 / cg"
- "Modified: 6.11.1996 / 22:48:43 / cg"
+ name:nameSymbol
+ inEnvironment:(Class nameSpaceQuerySignal query)
+ subclassOf:self
+ instanceVariableNames:instVarNameString
+ variable:true
+ words:true
+ pointers:false
+ classVariableNames:classVarString
+ poolDictionaries:pool
+ category:cat
+ comment:nil
+ changed:true
+
+ "Created: / 12.10.1996 / 19:18:40 / cg"
+ "Modified: / 6.11.1996 / 22:48:43 / cg"
+ "Modified: / 18.3.1999 / 18:20:07 / stefan"
! !
!ClassDescription methodsFor:'subclass creation - private classes'!
@@ -3203,6 +3221,6 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.79 1999-03-17 15:53:29 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.80 1999-03-19 07:18:32 stefan Exp $'
! !
ClassDescription initialize!