Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Class.st
changeset 726 997e30ef8423
parent 722 921a95dee8f2
child 733 983d045c17f5 
--- 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!
hg/stx-libbasic