--- a/Class.st Sat Dec 09 18:39:20 1995 +0100
+++ b/Class.st Sat Dec 09 22:34:58 1995 +0100
@@ -2893,22 +2893,24 @@
"return a dictionary filled with revision info.
This extracts the relevant info from the revisionString.
The revisionInfo contains all or a subset of:
- #binaryRevision - the revision upon which the binary of this class is based
- #revision - the revision upon which the class is based logically
- (different, if a changed class was checked in, but not yet recompiled)
- #user - the user who checked in the logical revision
- #date - the date when the logical revision was checked in
- #time - the time when the logical revision was checked in
- #fileName - the classes source file name
- #repositoryPath - the classes source container
+ #binaryRevision - the revision upon which the binary of this class is based
+ #revision - the revision upon which the class is based logically
+ (different, if a changed class was checked in, but not yet recompiled)
+ #user - the user who checked in the logical revision
+ #date - the date when the logical revision was checked in
+ #time - the time when the logical revision was checked in
+ #fileName - the classes source file name
+ #repositoryPath - the classes source container
"
|vsnString info|
vsnString := self revisionString.
vsnString notNil ifTrue:[
- info := Class revisionInfoFromString:vsnString.
- info at:#binaryRevision put:revision.
+ info := Class revisionInfoFromString:vsnString.
+ info notNil ifTrue:[
+ info at:#binaryRevision put:revision.
+ ]
].
^ info
@@ -2919,7 +2921,7 @@
"
"Created: 11.11.1995 / 14:27:20 / cg"
- "Modified: 7.12.1995 / 12:45:06 / cg"
+ "Modified: 9.12.1995 / 21:35:26 / cg"
!
revisionString
@@ -3360,6 +3362,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.103 1995-12-09 16:10:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.104 1995-12-09 21:34:58 cg Exp $'
! !
Class initialize!