--- a/packages/AbstractPackageManager.st	Thu Aug 24 10:38:50 2006 +0200
+++ b/packages/AbstractPackageManager.st	Thu Aug 24 10:39:01 2006 +0200
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 2003 by eXept Software AG
-              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
@@ -26,7 +26,7 @@
 copyright
 "
  COPYRIGHT (c) 2003 by eXept Software AG
-              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
@@ -52,7 +52,7 @@
 !AbstractPackageManager class methodsFor:'factory'!
 
 newDefaultPackage
-    ^ (self newPackageNamed:#'__NoProject__') mergeFromImage.
+    ^ (self newPackageNamed:(Project noProjectID)) mergeFromImage.
 !
 
 newPackageNamed:aString
@@ -75,32 +75,32 @@
 
 installPackage:aPackage
     "installs aPackage into the image."
-    self subclassResponsibility             
+    self subclassResponsibility
 !
 
 loadPackage:aFilename
     "loads a package ready for installation into the image"
-    self subclassResponsibility             
+    self subclassResponsibility
 !
 
 savePackage:aPackage
     "saves package"
-    self subclassResponsibility             
+    self subclassResponsibility
 !
 
 savePackage:aPackage as:aFilename
     "saves package"
-    self subclassResponsibility             
+    self subclassResponsibility
 !
 
 uninstallPackage:aPackage
     "uninstalls aPackage from the image"
-    self subclassResponsibility             
+    self subclassResponsibility
 !
 
 unloadPackage:aPackage
     "unloads the package from the receiver"
-    self subclassResponsibility             
+    self subclassResponsibility
 ! !
 
 !AbstractPackageManager methodsFor:'enumerating'!
@@ -109,22 +109,22 @@
     self packagesDo:aOneArgBlock excluding:#().
 !
 
-packagesDo:aOneArgBlock excluding:aCollectionOrObject 
+packagesDo:aOneArgBlock excluding:aCollectionOrObject
     "iterate through all packages except for aCollection of packages. Return the receiver.
     also look at #packagesDo: if you dont want to exclude anything"
     (aCollectionOrObject isCollection) ifTrue:[
-        self packages do:[:aPackage |
-            (aCollectionOrObject includes:aPackage) ifFalse:[
-                aOneArgBlock value:aPackage.    
-            ].
-        ].
-        ^ self.
+	self packages do:[:aPackage |
+	    (aCollectionOrObject includes:aPackage) ifFalse:[
+		aOneArgBlock value:aPackage.
+	    ].
+	].
+	^ self.
     ].
 
     self packages do:[:aPackage |
-        (aCollectionOrObject == aPackage) ifFalse:[
-            aOneArgBlock value:aPackage.    
-        ].
+	(aCollectionOrObject == aPackage) ifFalse:[
+	    aOneArgBlock value:aPackage.
+	].
     ].
 ! !
 
@@ -149,12 +149,12 @@
 !
 
 includesPackageNamed:aPackageName
-    
+
     ^ packages includesKey:aPackageName
 ! !
 
 !AbstractPackageManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/packages/AbstractPackageManager.st,v 1.3 2006-01-10 09:25:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/packages/AbstractPackageManager.st,v 1.4 2006-08-24 08:39:01 cg Exp $'
 ! !