hg/stx-libbasic: comparison Class.st

equal deleted inserted replaced

-:0e4c8d88a65d
+:ffd565c6e084
 addChangeRecordForChangeCategory
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "append a class-was-checkedIn-record to the changes file"
 |rv|
-rv := aClass revision.
+UpdateChangeFileQuerySignal raise ifTrue:[
-rv isNil ifTrue:[rv := '???'].
+rv := aClass revision.
+rv isNil ifTrue:[rv := '???'].
-self addInfoRecord:('checkin ' , aClass name , ' (' , 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
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "append a container-was-removed-record to the changes file"
-self addInfoRecord:('removed source container of ' , aClass name)
+UpdateChangeFileQuerySignal raise ifTrue:[
+self
-"Modified: 7.12.1995 / 23:45:01 / cg"
+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
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "add a class-rename-record to the changes file"
-self writingChangeDo:[:aStream |
+UpdateChangeFileQuerySignal raise ifTrue:[
-self addChangeRecordForClassRename:oldName to:newName to:aStream
+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
 "{ Pragma: +optSpace }"
 addChangeRecordForRemoveSelector:aSelector
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "add a category-rename record to the changes file"
-self writingChangeDo:[:aStream |
+UpdateChangeFileQuerySignal raise ifTrue:[
-	self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
+self writingChangeDo:[:aStream |
-]
+self addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream.
+]
+]
+"Modified: 24.1.1997 / 19:10:57 / cg"
 !
 addChangeRecordForSnapshot:aFileName
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "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
 "{ Pragma: +optSpace }"
 "a timestamp - prepended to any change, except infoRecords"
 |info|
-info := 'timestamp ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName.
+UpdateChangeFileQuerySignal raise ifTrue:[
-self addInfoRecord:info to:aStream. aStream cr.
+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
 "{ Pragma: +optSpace }"
 "add an info-record (snapshot, class fileOut etc.) to the changes file"
-self writingChangeWithTimeStamp:false perform:#addInfoRecord:to: with:aMessage.
+UpdateChangeFileQuerySignal raise ifTrue:[
+self writingChangeWithTimeStamp:false
-"Modified: 5.1.1997 / 19:58:04 / cg"
+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.
-fileName := ObjectMemory nameForChanges.
+LockChangesFile ifTrue:[
-LockChangesFile ifTrue:[
+streamType := LockedFileStream.
-streamType := LockedFileStream.
+] ifFalse:[
-] ifFalse:[
+streamType := FileStream.
-streamType := FileStream.
+].
-].
+aStream := streamType oldFileNamed:fileName.
-aStream := streamType oldFileNamed:fileName.
+aStream isNil ifTrue:[
+aStream := streamType newFileNamed:fileName.
 aStream isNil ifTrue:[
-aStream := streamType newFileNamed:fileName.
+self warn:'cannot create/update the changes file'.
-aStream isNil ifTrue:[
+^ nil
-self warn:'cannot create/update the changes file'.
+]
-^ nil
+].
-]
+aStream setToEnd.
-].
-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
 "return a stream for writing the sources file.
 Notice, in ST/X, it is noncommon to use a single
 ]
 ]
 ]
 "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
 "{ Pragma: +optSpace }"
 ! !
 !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!

changeset 2256	ffd565c6e084
parent 2245	d2ae001f71c9
child 2262	4c4d810f006f