Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comment
authorClaus Gittinger <cg@exept.de>
Thu, 22 Apr 1999 18:53:54 +0200
changeset 751 c39b6f348d06
parent 750 6f61e895eef1
child 752 5698ea124129
comment
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Thu Apr 22 14:07:17 1999 +0200
+++ b/AbstrSCMgr.st	Thu Apr 22 18:53:54 1999 +0200
@@ -544,7 +544,8 @@
 !
 
 sourceInfoOfClass:aClass
-    "helper: return a classes sourceCodeInfo"
+    "helper: return a classes sourceCodeInfo by extracting its
+     versionString components."
 
     |cls binaryInfo revInfo actualSourceFileName classFileNameBase
      newInfo container expectedFileName
@@ -1121,7 +1122,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.91 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.92 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1457,6 +1458,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.91 1999-03-29 11:57:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.92 1999-04-22 16:53:54 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Thu Apr 22 14:07:17 1999 +0200
+++ b/AbstractSourceCodeManager.st	Thu Apr 22 18:53:54 1999 +0200
@@ -544,7 +544,8 @@
 !
 
 sourceInfoOfClass:aClass
-    "helper: return a classes sourceCodeInfo"
+    "helper: return a classes sourceCodeInfo by extracting its
+     versionString components."
 
     |cls binaryInfo revInfo actualSourceFileName classFileNameBase
      newInfo container expectedFileName
@@ -1121,7 +1122,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.91 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.92 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1457,6 +1458,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.91 1999-03-29 11:57:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.92 1999-04-22 16:53:54 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3