The Trunk: System-ct.1098.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1098.mcz

==================== Summary ====================

Name: System-ct.1098
Author: ct
Time: 21 September 2019, 8:35:48.064935 pm
UUID: cfc72a96-fdf9-ec41-8fd4-66c44219b63b
Ancestors: System-mt.1093

Add support for closing a project, even the current one. Better load Morphic-ct.1537 before.

=============== Diff against System-mt.1093 ===============

Item was added:
+ ----- Method: Project>>close (in category 'release') -----
+ close
+
+ (self isCurrentProject and: [self isTopProject])
+ ifTrue: [
+ self inform: 'Cannot close the top project'.
+ ^ false].
+ self okToClose ifFalse: [^ false].
+
+ self isCurrentProject
+ ifFalse: [self delete.]
+ ifTrue: [
+ self parent
+ addDeferredUIMessage: [self delete];
+ enter].
+ ^ true!