Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.380.mcz
==================== Summary ====================
Name: EToys-mt.380 Author: mt Time: 20 February 2020, 1:43:12.099407 pm UUID: 4edbddf3-efc9-2343-969a-17b5ae11258c Ancestors: EToys-mt.379
In Etoys, fixes some visuals in the dialog for saving projects.
=============== Diff against EToys-mt.379 ===============
Item was changed: ----- Method: EToyGenericDialogMorph>>genericTextFieldNamed: (in category 'as yet unclassified') ----- genericTextFieldNamed: aString | newField | + newField := ShowEmptyTextMorph new + beAllFont: self myFont; + contentsWrapped: ''; + extent: 400 @ 20. - newField := ShowEmptyTextMorph new beAllFont: self myFont; - extent: 400 @ 20; - contentsWrapped: ''. namedFields at: aString put: newField. ^ newField!
Item was changed: ----- Method: EToyGenericDialogMorph>>lockedString:font: (in category 'as yet unclassified') ----- lockedString: aString font: aFont + ^ (self inARow: {(StringMorph contents: aString font: aFont) lock})! - ^ self inAColumn: {(StringMorph contents: aString font: aFont) lock}!
Item was changed: ----- Method: EToyProjectDetailsMorph>>rebuild (in category 'initialization') ----- rebuild "Rebuild the receiver from scratch."
| bottomButtons header toAdd | self removeAllMorphs. header := self addARow: { + (self lockedString: 'Please describe this project' translated) listDirection: #topToBottom. - self lockedString: 'Please describe this project' translated. }. header color: ScriptingSystem baseColor. self addARow: { self lockedString: 'Project Name' translated. self inAColumnForText: {self fieldForProjectName} }. self expandedFormat ifTrue: [ self fieldToDetailsMappings do: [ :each | toAdd := (each size < 5 or: [each fifth = #text]) ifTrue: [self genericTextFieldNamed: each first] ifFalse: [self popUpEntryNamed: each first menuTitle: each third].
self addARow: { self lockedString: each third translated. self inAColumnForText: {toAdd height: each fourth} }. ]. ]. bottomButtons := self expandedFormat ifTrue: [ { self okButton. self cancelButton. } ] ifFalse: [ { self okButton. self expandButton. self cancelButton. } ]. self addARow: bottomButtons. self fillInDetails.!
Item was changed: ----- Method: EToyProjectRenamerMorph>>buttonNamed:action:color:help: (in category 'as yet unclassified') ----- buttonNamed: aString action: aSymbol color: aColor help: helpString
| f col | f := SimpleButtonMorph new target: self; label: aString translated font: self myFont; color: aColor; borderColor: aColor muchDarker; actionSelector: aSymbol; + setBalloonText: helpString translated; + hResizing: #spaceFill. - setBalloonText: helpString translated. col := (self inAColumn: {f}) hResizing: #spaceFill. ^col!