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!
Locked
