--- a/Tools__ProjectBuilderAssistantApplication.st Mon Sep 10 00:07:24 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Mon Sep 10 14:43:41 2012 +0200
@@ -2748,6 +2748,21 @@
"Modified: / 06-09-2012 / 15:58:58 / cg"
!
+delayedUpdate:something with:anArgument from:changedObject
+ changedObject == Smalltalk ifTrue:[
+ (something == #newClass
+ or:[something == #classRemove
+ or:[something == #projectOrganization]]) ifTrue:[
+ self updateListOfMatchingProjects.
+ self updateListOfNewProjectsName.
+ ^ self.
+ ].
+ ^ self.
+ ].
+
+ "Created: / 10-09-2012 / 14:07:47 / cg"
+!
+
enterContentsSpecification
|toAdd|
@@ -2841,13 +2856,14 @@
(something == #newClass
or:[something == #classRemove
or:[something == #projectOrganization]]) ifTrue:[
- self updateListOfMatchingProjects.
- self updateListOfNewProjectsName.
+ self enqueueDelayedUpdate:something with:anArgument from:changedObject.
^ self.
].
^ self.
].
super update:something with:anArgument from:changedObject
+
+ "Modified: / 10-09-2012 / 14:08:17 / cg"
!
updateApplicationComment