diff -r 857c51227b15 -r c18d456bb5b3 Tools__ProjectBuilderAssistantApplication.st --- 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