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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 19 Mar 1999 23:28:21 +0100
changeset 744 eaf185681d85
parent 743 a21b7562704b
child 745 a17a530bb089
checkin from browser
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Fri Mar 19 08:20:09 1999 +0100
+++ b/AbstrSCMgr.st	Fri Mar 19 23:28:21 1999 +0100
@@ -822,6 +822,9 @@
     ] ifFalse:[
         classFileName := (Smalltalk fileNameForClass:aClassName) , '.st'.
         packageDir := Smalltalk sourceDirectoryNameOfClass:aClassName.
+        (packageDir startsWith:'stx/') ifTrue:[
+            packageDir := packageDir copyFrom:5.
+        ].
         moduleDir := 'stx'.
     ].
 
@@ -1099,7 +1102,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.89 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.90 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1435,6 +1438,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.89 1998-09-25 14:27:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.90 1999-03-19 22:28:21 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Fri Mar 19 08:20:09 1999 +0100
+++ b/AbstractSourceCodeManager.st	Fri Mar 19 23:28:21 1999 +0100
@@ -822,6 +822,9 @@
     ] ifFalse:[
         classFileName := (Smalltalk fileNameForClass:aClassName) , '.st'.
         packageDir := Smalltalk sourceDirectoryNameOfClass:aClassName.
+        (packageDir startsWith:'stx/') ifTrue:[
+            packageDir := packageDir copyFrom:5.
+        ].
         moduleDir := 'stx'.
     ].
 
@@ -1099,7 +1102,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.89 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.90 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1435,6 +1438,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.89 1998-09-25 14:27:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.90 1999-03-19 22:28:21 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3