equal
deleted
inserted
replaced
2746 ]. |
2746 ]. |
2747 |
2747 |
2748 "Modified: / 06-09-2012 / 15:58:58 / cg" |
2748 "Modified: / 06-09-2012 / 15:58:58 / cg" |
2749 ! |
2749 ! |
2750 |
2750 |
|
2751 delayedUpdate:something with:anArgument from:changedObject |
|
2752 changedObject == Smalltalk ifTrue:[ |
|
2753 (something == #newClass |
|
2754 or:[something == #classRemove |
|
2755 or:[something == #projectOrganization]]) ifTrue:[ |
|
2756 self updateListOfMatchingProjects. |
|
2757 self updateListOfNewProjectsName. |
|
2758 ^ self. |
|
2759 ]. |
|
2760 ^ self. |
|
2761 ]. |
|
2762 |
|
2763 "Created: / 10-09-2012 / 14:07:47 / cg" |
|
2764 ! |
|
2765 |
2751 enterContentsSpecification |
2766 enterContentsSpecification |
2752 |toAdd| |
2767 |toAdd| |
2753 |
2768 |
2754 self updateListOfClassesInProject. |
2769 self updateListOfClassesInProject. |
2755 |
2770 |
2839 update:something with:anArgument from:changedObject |
2854 update:something with:anArgument from:changedObject |
2840 changedObject == Smalltalk ifTrue:[ |
2855 changedObject == Smalltalk ifTrue:[ |
2841 (something == #newClass |
2856 (something == #newClass |
2842 or:[something == #classRemove |
2857 or:[something == #classRemove |
2843 or:[something == #projectOrganization]]) ifTrue:[ |
2858 or:[something == #projectOrganization]]) ifTrue:[ |
2844 self updateListOfMatchingProjects. |
2859 self enqueueDelayedUpdate:something with:anArgument from:changedObject. |
2845 self updateListOfNewProjectsName. |
|
2846 ^ self. |
2860 ^ self. |
2847 ]. |
2861 ]. |
2848 ^ self. |
2862 ^ self. |
2849 ]. |
2863 ]. |
2850 super update:something with:anArgument from:changedObject |
2864 super update:something with:anArgument from:changedObject |
|
2865 |
|
2866 "Modified: / 10-09-2012 / 14:08:17 / cg" |
2851 ! |
2867 ! |
2852 |
2868 |
2853 updateApplicationComment |
2869 updateApplicationComment |
2854 |comment| |
2870 |comment| |
2855 |
2871 |