[squeak-dev] The Trunk: System-dtl.665.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 30 04:27:43 UTC 2014


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
  !



More information about the Squeak-dev mailing list