*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 21 Nov 2006 15:07:07 +0100
changeset 10187 5bb38e7b8923
parent 10186 c0d6457790e6
child 10188 660aa980d6ae
*** empty log message ***
ProjectDefinition.st
--- 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!