[Pkg] The Trunk: EToys-jl.238.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Sep 20 13:52:01 UTC 2016


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!



More information about the Packages mailing list