Etoys: System-Richo.49.mcz

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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev