--- a/SourceCodeManagerUtilities.st Mon Oct 12 19:26:46 2009 +0200
+++ b/SourceCodeManagerUtilities.st Mon Oct 12 19:27:05 2009 +0200
@@ -784,7 +784,7 @@
sourceInfo := mgr sourceInfoOfClass:currentClass.
sourceInfo notNil ifTrue:[
- currentClass package ~= Project noProjectID ifTrue:[
+ currentClass package ~= PackageId noProjectID ifTrue:[
containerPackage := mgr directoryFromSourceInfo:sourceInfo.
containerModule := mgr moduleFromSourceInfo:sourceInfo.
].
@@ -799,7 +799,7 @@
].
rev isNil ifTrue:[
pkg := currentClass package.
- (pkg notNil and:[pkg ~= Project noProjectID]) ifTrue:[
+ (pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[
containerModule := pkg upTo:$:.
containerPackage := pkg copyFrom:(containerModule size + 2).
].
@@ -2538,8 +2538,8 @@
|module package files|
Cursor read showWhile:[
- module := moduleHolder value ? (Project noProjectID).
- package := packageHolder value ? (Project noProjectID).
+ module := moduleHolder value ? (PackageId noProjectID).
+ package := packageHolder value ? (PackageId noProjectID).
files := SourceCodeManager getExistingContainersInModule:module directory:package.
files := files asOrderedCollection.
@@ -3168,9 +3168,9 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.194 2009-10-09 17:10:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.195 2009-10-12 17:27:05 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.194 2009-10-09 17:10:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.195 2009-10-12 17:27:05 cg Exp $'
! !