AbstractSourceCodeManager.st
changeset 1910 a260d4326328
parent 1893 740930d87917
child 1930 74929dd929d8
--- a/AbstractSourceCodeManager.st	Mon Nov 20 12:36:52 2006 +0100
+++ b/AbstractSourceCodeManager.st	Mon Nov 20 12:37:26 2006 +0100
@@ -2146,7 +2146,7 @@
             pkgDir := info at:#directory ifAbsent:'?'.
             module := pkgDir upTo:$/.
             directory := pkgDir copyFrom:(module size+2).
-            pkg := module,':',directory.
+            pkg := (PackageId module:module directory:directory) asString.
 
             (projectFilter isEmptyOrNil
             or:[ projectFilter includes:pkg ]) ifTrue:[
@@ -2212,6 +2212,7 @@
         ].
 
     "Created: / 12-09-2006 / 15:18:35 / cg"
+    "Modified: / 18-11-2006 / 17:09:55 / cg"
 !
 
 writeHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:repositoryFilter filterModules:moduleFilter to:aStream
@@ -2410,7 +2411,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.205 2006-11-09 14:25:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.206 2006-11-20 11:37:26 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!