David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.665.mcz
==================== Summary ====================
Name: System-dtl.665 Author: dtl Time: 29 January 2014, 11:26:10.091 pm UUID: f2aedc96-64ef-49a4-a998-eeba20e913f4 Ancestors: System-topa.664
Restore original dialog message for deleting a project in Project>>okToChange (do not use inappropriate eToys text)
=============== Diff against System-topa.664 ===============
Item was changed: ----- Method: Project>>okToChange (in category 'release') ----- okToChange "Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation"
| ok is list | self subProjects size >0 ifTrue: [self inform: ('The project {1} contains sub-projects. You must remove these explicitly before removing their parent.' translated format:{self name}). ^ false]. ok := world isMorph not and: [world scheduledControllers size <= 1]. ok ifFalse: [self isMorphic ifTrue: [self parent == CurrentProject ifFalse: [^ true]]]. "view from elsewhere. just delete it." + ok := self confirm: + ('Really delete the project + {1} + and all its windows?' translated format:{self name}). - ok := (self confirm: - ('Really delete the icon - and remove the project - {1} from Etoys? - (file will still be saved on disk)' translated format:{self name printString})). ok ifFalse: [^ false].
world isMorph ifTrue: [Smalltalk at: #WonderlandCameraMorph ifPresent:[:aClass | world submorphs do: "special release for wonderlands" [:m | (m isKindOf: aClass) and: [m getWonderland release]]]. "Remove Player classes and metaclasses owned by project" is := ImageSegment new arrayOfRoots: (Array with: self). (list := is rootsIncludingPlayers) ifNotNil: [list do: [:playerCls | (playerCls respondsTo: #isMeta) ifTrue: [playerCls isMeta ifFalse: [playerCls removeFromSystemUnlogged]]]]].
self removeChangeSetIfPossible. "do this last since it will render project inaccessible to #allProjects and their ilk" ProjectHistory forget: self. Project deletingProject: self. ^ true !
packages@lists.squeakfoundation.org