The Trunk: EToys-jl.238.mcz

Jens Lincke uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-jl.238.mcz

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

Name: EToys-jl.238
Author: jl
Time: 20 September 2016, 3:50:57.399902 pm
UUID: 4130651d-c6a9-1c43-a5aa-734f9e8d8202
Ancestors: EToys-jl.237

allow closing projects in the project history view morph. necessary because of changes to how project deletion works for trees of projects.

=============== Diff against EToys-jl.237 ===============

Item was added:
+ ----- Method: EToyProjectHistoryMorph>>confirmedDelete:evt:from: (in category 'as yet unclassified') -----
+ confirmedDelete: aProject evt: evt from: origin
+
+ self delete.
+ aProject = Project current ifTrue: [
+ ^ self inform: 'Cannot delete current project' translated].
+ (self confirm: ('Do you really want to delete {1}
+ and all its content?' translated format: {aProject name}))
+ ifTrue: [aProject delete].!

Item was changed:
  ----- Method: EToyProjectHistoryMorph>>jumpToProject (in category 'as yet unclassified') -----
  jumpToProject
 
- | selection |
- selection := (Project current buildJumpToMenu: MenuMorph new) invokeModal.
  self closeMyFlapIfAny.
+ Project current jumpToProject.
+
- Project current jumpToSelection: selection
  !

Item was changed:
  ----- Method: EToyProjectHistoryMorph>>rebuild (in category 'as yet unclassified') -----
  rebuild
 
  | history r1 |
  history := ProjectHistory currentHistory mostRecentCopy.
  changeCounter := ProjectHistory changeCounter.
  self removeAllMorphs.
  self rubberBandCells: false. "enable growing"
  r1 := self addARow: {
  self inAColumn: {
  StringMorph new contents: 'Jump...' translated; lock.
  }.
  }.
  r1 on: #mouseUp send: #jumpToProject to: self.
 
  history do: [ :each |
  (
  self addARow: {
  (self inAColumn: {
  StretchyImageMorph new form: each second; minWidth: 35; minHeight: 35; lock
  }) vResizing: #spaceFill.
  self inAColumn: {
  StringMorph new contents: each first; lock.
+ "StringMorph new contents: each fourth first; lock."
- "StringMorph new contents: each third; lock."
  }.
+ (self inAColumn: {
+ StringMorph new
+ color: Color red;
+ contents: 'X';
+ on: #mouseDown send: #confirmedDelete:evt:from: to: self withValue: each fourth first
+ }) hResizing: #rigid.
  }
  )
  color: Color paleYellow;
  borderWidth: 1;
  borderColor: #raised;
  vResizing: #spaceFill;
  on: #mouseUp send: #mouseUp:in: to: self;
  on: #mouseDown send: #mouseDown:in: to: self;
  on: #mouseMove send: #mouseMove:in: to: self;
  on: #mouseLeave send: #mouseLeave:in: to: self;
  setProperty: #projectParametersTuple toValue: each;
  setBalloonText: (each third isEmptyOrNil ifTrue: ['not saved'] ifFalse: [each third])
  ].
  "---
  newTuple := {
  aProject name.
  aProject thumbnail.
  aProject url.
  WeakArray with: aProject.
  }.
  ---"!

Item was changed:
  ----- Method: SugarNavigatorBar>>newProject (in category 'the actions') -----
  newProject
+ "Not creating a view. mt's refactoring of projects breaks the assumption that we can always delete a project and all it's children through a view anyway"
  MorphicProject new enter!