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.
oops - rcsTop may or may not include a trailing slash
authorClaus Gittinger <cg@exept.de>
Mon, 11 Nov 1996 16:05:05 +0100
changeset 516 183dae704f70
parent 515 74ee7c511219
child 517 de51055f1361
oops - rcsTop may or may not include a trailing slash
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Mon Nov 11 16:04:07 1996 +0100
+++ b/AbstrSCMgr.st	Mon Nov 11 16:05:05 1996 +0100
@@ -243,13 +243,17 @@
             (containerPath startsWith:(top , '/')) ifTrue:[
                 rest := containerPath copyFrom:(top size + 2).
                 ^ rest asFilename baseName
+            ].
+            (containerPath startsWith:(top)) ifTrue:[
+                rest := containerPath copyFrom:(top size + 1).
+                ^ rest asFilename baseName
             ]
         ]
     ].
     ^ containerPath
 
     "Created: 25.11.1995 / 18:42:34 / cg"
-    "Modified: 19.2.1996 / 13:35:29 / cg"
+    "Modified: 11.11.1996 / 16:04:39 / cg"
 !
 
 moduleFromContainerPath:containerPath
@@ -1175,6 +1179,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.67 1996-11-11 15:04:07 cg Exp $ [ce]'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.68 1996-11-11 15:05:05 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Mon Nov 11 16:04:07 1996 +0100
+++ b/AbstractSourceCodeManager.st	Mon Nov 11 16:05:05 1996 +0100
@@ -243,13 +243,17 @@
             (containerPath startsWith:(top , '/')) ifTrue:[
                 rest := containerPath copyFrom:(top size + 2).
                 ^ rest asFilename baseName
+            ].
+            (containerPath startsWith:(top)) ifTrue:[
+                rest := containerPath copyFrom:(top size + 1).
+                ^ rest asFilename baseName
             ]
         ]
     ].
     ^ containerPath
 
     "Created: 25.11.1995 / 18:42:34 / cg"
-    "Modified: 19.2.1996 / 13:35:29 / cg"
+    "Modified: 11.11.1996 / 16:04:39 / cg"
 !
 
 moduleFromContainerPath:containerPath
@@ -1175,6 +1179,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.67 1996-11-11 15:04:07 cg Exp $ [ce]'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.68 1996-11-11 15:05:05 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3