--- a/ProjectDefinition.st Tue Nov 21 15:05:45 2006 +0100
+++ b/ProjectDefinition.st Tue Nov 21 15:07:07 2006 +0100
@@ -2160,14 +2160,16 @@
If this fails, classes are filed in, as well as classes not present
in the class library"
- self loadPreRequisites:true.
- self loadClassLibrary.
- self loadExtensions.
- self loadAllClasses.
- self loadSubProjects:true
+ Class withoutUpdatingChangesDo:[
+ self loadPreRequisites:true.
+ self loadClassLibrary.
+ self loadExtensions.
+ self loadAllClasses.
+ self loadSubProjects:true
+ ]
"Created: / 17-08-2006 / 01:01:41 / cg"
- "Modified: / 25-10-2006 / 17:52:26 / cg"
+ "Modified: / 21-11-2006 / 15:07:09 / cg"
!
loadAllClasses
@@ -2291,32 +2293,34 @@
loadPackages:aListOfPackages fullLoad:fullLoad
"load some packages (at least the projectDefinitions and their extensions)"
- aListOfPackages do:[:aPackage |
- |def|
-
- def := ProjectDefinition definitionClassForPackage:aPackage.
- def isNil ifTrue:[
- Smalltalk loadPackage:aPackage.
- ] ifFalse:[
- def autoload.
- ].
- ].
-
- fullLoad ifTrue:[
+ Class withoutUpdatingChangesDo:[
aListOfPackages do:[:aPackage |
|def|
def := ProjectDefinition definitionClassForPackage:aPackage.
- def notNil ifTrue:[
- def isFullyLoaded ifFalse:[
- def load.
+ def isNil ifTrue:[
+ Smalltalk loadPackage:aPackage.
+ ] ifFalse:[
+ def autoload.
+ ].
+ ].
+
+ fullLoad ifTrue:[
+ aListOfPackages do:[:aPackage |
+ |def|
+
+ def := ProjectDefinition definitionClassForPackage:aPackage.
+ def notNil ifTrue:[
+ def isFullyLoaded ifFalse:[
+ def load.
+ ].
].
].
].
].
"Created: / 25-10-2006 / 17:51:07 / cg"
- "Modified: / 26-10-2006 / 12:24:33 / cg"
+ "Modified: / 21-11-2006 / 15:06:42 / cg"
!
loadPreRequisites
@@ -3594,7 +3598,7 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.118 2006-11-14 17:19:37 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.119 2006-11-21 14:07:07 cg Exp $'
! !
ProjectDefinition initialize!