[squeak-dev] The Trunk: EToys-mt.380.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 20 12:43:21 UTC 2020


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!



More information about the Squeak-dev mailing list