--- a/Class.st Fri Jan 24 17:24:52 1997 +0100
+++ b/Class.st Fri Jan 24 19:16:48 1997 +0100
@@ -1681,7 +1681,11 @@
"add a category change record to the changes file"
- self writingChangePerform:#addChangeRecordForChangeCategory:to: with:category.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangePerform:#addChangeRecordForChangeCategory:to: with:category.
+ ]
+
+ "Modified: 24.1.1997 / 19:09:34 / cg"
!
addChangeRecordForClass:aClass
@@ -1689,7 +1693,11 @@
"add a class-definition-record to the changes file"
- self writingChangePerform:#addChangeRecordForClass:to: with:aClass.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangePerform:#addChangeRecordForClass:to: with:aClass.
+ ]
+
+ "Modified: 24.1.1997 / 19:09:41 / cg"
!
addChangeRecordForClassCheckIn:aClass
@@ -1699,13 +1707,18 @@
|rv|
- rv := aClass revision.
- rv isNil ifTrue:[rv := '???'].
-
- self addInfoRecord:('checkin ' , aClass name , ' (' , rv , ')')
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ rv := aClass revision.
+ rv isNil ifTrue:[rv := '???'].
+
+ self
+ writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:('checkin ' , aClass name , ' (' , rv , ')').
+ ]
"Created: 18.11.1995 / 17:04:58 / cg"
- "Modified: 8.11.1996 / 16:24:00 / cg"
+ "Modified: 24.1.1997 / 19:11:55 / cg"
!
addChangeRecordForClassComment:aClass
@@ -1713,7 +1726,11 @@
"add a class-comment-record to the changes file"
- self writingChangePerform:#addChangeRecordForClassComment:to: with:aClass.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangePerform:#addChangeRecordForClassComment:to: with:aClass.
+ ]
+
+ "Modified: 24.1.1997 / 19:09:59 / cg"
!
addChangeRecordForClassContainerRemove:aClass
@@ -1721,10 +1738,15 @@
"append a container-was-removed-record to the changes file"
- self addInfoRecord:('removed source container of ' , aClass name)
-
- "Modified: 7.12.1995 / 23:45:01 / cg"
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self
+ writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:('removed source container of ' , aClass name).
+ ]
+
"Created: 11.9.1996 / 15:37:19 / cg"
+ "Modified: 24.1.1997 / 19:12:05 / cg"
!
addChangeRecordForClassFileOut:aClass
@@ -1732,7 +1754,14 @@
"append a class-was-filedOut-record to the changes file"
- self addInfoRecord:('fileOut ' , aClass name)
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self
+ writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:('fileOut ' , aClass name).
+ ]
+
+ "Modified: 24.1.1997 / 19:12:14 / cg"
!
addChangeRecordForClassInstvars:aClass
@@ -1740,7 +1769,11 @@
"add a class-instvars-record to the changes file"
- self writingChangePerform:#addChangeRecordForClassInstvars:to: with:aClass.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangePerform:#addChangeRecordForClassInstvars:to: with:aClass.
+ ]
+
+ "Modified: 24.1.1997 / 19:10:18 / cg"
!
addChangeRecordForClassRemove:oldName
@@ -1748,7 +1781,11 @@
"add a class-remove-record to the changes file"
- self writingChangePerform:#addChangeRecordForClassRemove:to: with:oldName.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangePerform:#addChangeRecordForClassRemove:to: with:oldName.
+ ]
+
+ "Modified: 24.1.1997 / 19:10:25 / cg"
!
addChangeRecordForClassRename:oldName to:newName
@@ -1756,11 +1793,13 @@
"add a class-rename-record to the changes file"
- self writingChangeDo:[:aStream |
- self addChangeRecordForClassRename:oldName to:newName to:aStream
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangeDo:[:aStream |
+ self addChangeRecordForClassRename:oldName to:newName to:aStream
+ ]
]
- "Modified: 30.10.1996 / 20:27:20 / cg"
+ "Modified: 24.1.1997 / 19:10:35 / cg"
!
addChangeRecordForMethod:aMethod
@@ -1865,7 +1904,11 @@
"add a method-remove-record to the changes file"
- self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
+ ]
+
+ "Modified: 24.1.1997 / 19:10:48 / cg"
!
addChangeRecordForRenameCategory:oldCategory to:newCategory
@@ -1873,9 +1916,13 @@
"add a category-rename record to the changes file"
- self writingChangeDo:[:aStream |
- self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangeDo:[:aStream |
+ self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
+ ]
]
+
+ "Modified: 24.1.1997 / 19:10:57 / cg"
!
addChangeRecordForSnapshot:aFileName
@@ -1883,7 +1930,14 @@
"add a snapshot-record to the changes file"
- self addInfoRecord:('snapshot ' , aFileName)
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self
+ writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:('snapshot ' , aFileName).
+ ]
+
+ "Modified: 24.1.1997 / 19:12:25 / cg"
!
addChangeRecordForSnapshot:aFileName to:aStream
@@ -1891,7 +1945,11 @@
"add a snapshot-record to aStream"
- self addInfoRecord:('snapshot ' , aFileName) to:aStream
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self addInfoRecord:('snapshot ' , aFileName) to:aStream
+ ]
+
+ "Modified: 24.1.1997 / 19:11:08 / cg"
!
addChangeTimeStampTo:aStream
@@ -1901,10 +1959,13 @@
|info|
- info := 'timestamp ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName.
- self addInfoRecord:info to:aStream. aStream cr.
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ info := 'timestamp ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName.
+ self addInfoRecord:info to:aStream. aStream cr.
+ ]
"Created: 18.11.1995 / 15:41:01 / cg"
+ "Modified: 24.1.1997 / 19:11:19 / cg"
!
addInfoRecord:aMessage
@@ -1912,41 +1973,43 @@
"add an info-record (snapshot, class fileOut etc.) to the changes file"
- self writingChangeWithTimeStamp:false perform:#addInfoRecord:to: with:aMessage.
-
- "Modified: 5.1.1997 / 19:58:04 / cg"
+ UpdateChangeFileQuerySignal raise ifTrue:[
+ self writingChangeWithTimeStamp:false
+ perform:#addInfoRecord:to:
+ with:aMessage.
+ ]
+
+ "Modified: 24.1.1997 / 19:13:14 / cg"
!
changesStream
- "return a Stream for the writing changes file - or nil if no update is wanted.
+ "return a Stream for the writing changes file.
This returns a regular stream or a locked stream - according to
the LockChangesFile settings
(recommended if multiple images operate on a common changes file)"
|streamType aStream fileName|
- UpdateChangeFileQuerySignal raise ifTrue:[
- fileName := ObjectMemory nameForChanges.
-
- LockChangesFile ifTrue:[
- streamType := LockedFileStream.
- ] ifFalse:[
- streamType := FileStream.
- ].
- aStream := streamType oldFileNamed:fileName.
+ fileName := ObjectMemory nameForChanges.
+
+ LockChangesFile ifTrue:[
+ streamType := LockedFileStream.
+ ] ifFalse:[
+ streamType := FileStream.
+ ].
+ aStream := streamType oldFileNamed:fileName.
+ aStream isNil ifTrue:[
+ aStream := streamType newFileNamed:fileName.
aStream isNil ifTrue:[
- aStream := streamType newFileNamed:fileName.
- aStream isNil ifTrue:[
- self warn:'cannot create/update the changes file'.
- ^ nil
- ]
- ].
- aStream setToEnd
+ self warn:'cannot create/update the changes file'.
+ ^ nil
+ ]
].
+ aStream setToEnd.
^ aStream
"Created: 28.10.1995 / 16:53:43 / cg"
- "Modified: 20.1.1997 / 12:36:20 / cg"
+ "Modified: 24.1.1997 / 19:14:27 / cg"
!
sourcesStream
@@ -3846,7 +3909,7 @@
]
"Created: 18.11.1995 / 15:36:02 / cg"
- "Modified: 17.1.1997 / 20:51:06 / cg"
+ "Modified: 24.1.1997 / 19:14:48 / cg"
!
writingChangeWithTimeStamp:stampIt perform:aSelector with:anArgument
@@ -4762,6 +4825,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.248 1997-01-23 13:16:06 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.249 1997-01-24 18:16:48 cg Exp $'
! !
Class initialize!