Ricardo Moran uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-Richo.49.mcz
==================== Summary ====================
Name: System-Richo.49 Author: Richo Time: 25 February 2012, 7:46:17 pm UUID: ef96cd21-571f-2040-a788-af7f2b292977 Ancestors: System-Richo.48
* Now changed the correct string (I hope) from "Really delete the project <name> and all its contents? <yes/no>" to "Really delete the icon and remove the project from Etoys (file will still be saved on disk) <yes/no>"
=============== Diff against System-Richo.48 ===============
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 icon + and remove the project + {1} from Etoys? + (file will still be saved on disk)' translated format:{self name printString})). - ('Really delete the project - {1} - and all its contents?' translated format:{self name})). 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 !
etoys-dev@lists.squeakfoundation.org