Am 20.02.2020 13:43:33 schrieb commits at source.squeak.org <commits at source.squeak.org>:
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
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!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200220/3a12d45e/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 24564 bytes
Desc: not available
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200220/3a12d45e/attachment.png>