--- a/AbstractSourceCodeManager.st Thu Oct 12 16:28:31 2006 +0200
+++ b/AbstractSourceCodeManager.st Thu Oct 12 16:29:19 2006 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -12,11 +12,11 @@
"{ Package: 'stx:libbasic3' }"
Object subclass:#AbstractSourceCodeManager
- instanceVariableNames:''
- classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
- WorkTreeDirectoryName'
- poolDictionaries:''
- category:'System-SourceCodeManagement'
+ instanceVariableNames:''
+ classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
+ WorkTreeDirectoryName'
+ poolDictionaries:''
+ category:'System-SourceCodeManagement'
!
!AbstractSourceCodeManager class methodsFor:'documentation'!
@@ -24,7 +24,7 @@
copyright
"
COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -1073,7 +1073,7 @@
"/
"/ the filename I'd expect from its name ...
"/
- classFileNameBase := cls classFilename asFilename baseName.
+ classFileNameBase := cls classBaseFilename.
(newInfo includesKey:#fileName) ifFalse:[
newInfo at:#fileName put:classFileNameBase
@@ -1125,7 +1125,7 @@
self sourceInfoOfClass:Array
"
- "Modified: / 11-10-2006 / 18:53:56 / cg"
+ "Modified: / 12-10-2006 / 15:50:27 / cg"
! !
!AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -1723,26 +1723,26 @@
Return nil on failure.
The returned information is a structure (IdentityDictionary)
filled with:
- #container -> the RCS container file name
- #filename -> the actual source file name
- #newestRevision -> the revisionString of the newest revision
- #numberOfRevisions -> the number of revisions in the container
- #revisions -> collection of per-revision info
-
- per revision info consists of one record per revision:
-
- #revision -> the revision string
- #author -> who checked that revision into the repository
- #date -> when was it checked in
- #state -> the RCS state
- #numberOfChangedLines -> the number of changed line w.r.t the previous
-
- revisions are ordered newest first
- (i.e. the last entry is for the initial revision; the first for the most recent one)
- "
+ #container -> the RCS container file name
+ #filename -> the actual source file name
+ #newestRevision -> the revisionString of the newest revision
+ #numberOfRevisions -> the number of revisions in the container
+ #revisions -> collection of per-revision info
+
+ per revision info consists of one record per revision:
+
+ #revision -> the revision string
+ #author -> who checked that revision into the repository
+ #date -> when was it checked in
+ #state -> the RCS state
+ #numberOfChangedLines -> the number of changed line w.r.t the previous
+
+ revisions are ordered newest first
+ (i.e. the last entry is for the initial revision; the first for the most recent one)
+ "
^ self
- revisionLogOf:aClass fromRevision:nil toRevision:nil
+ revisionLogOf:aClass fromRevision:nil toRevision:nil
"
SourceCodeManager revisionLogOf:Array
@@ -2343,7 +2343,7 @@
"extract a classes log and append it to aStream."
^ self
- writeRevisionLogOf:aClass fromRevision:nil toRevision:nil to:aStream
+ writeRevisionLogOf:aClass fromRevision:nil toRevision:nil to:aStream
"
SourceCodeManager writeRevisionLogOf:Array to:Transcript
@@ -2381,7 +2381,7 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.199 2006-10-12 09:14:28 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.200 2006-10-12 14:29:19 cg Exp $'
! !
AbstractSourceCodeManager initialize!