[etoys-dev] Etoys: Etoys-Richo.111.mcz

[Scott Wallace]

Yay -- hooray once again for Richo!  Great for this one to get done!

  -- Scott

 
On Feb 28, 2012, at 7:29 PM, commits at source.squeak.org wrote:

> Ricardo Moran uploaded a new version of Etoys to project Etoys:
> http://source.squeak.org/etoys/Etoys-Richo.111.mcz
> 
> ==================== Summary ====================
> 
> Name: Etoys-Richo.111
> Author: Richo
> Time: 28 February 2012, 4:27:50 pm
> UUID: d6b04048-9a47-2649-8409-1429f9897fed
> Ancestors: Etoys-kfr.110
> 
> * Preserved "Subject" information in the EToyProjectDetailsMorph when reading in older projects, transferring the info into the free-form "Tags" field.
> 
> =============== Diff against Etoys-kfr.110 ===============
> 
> Item was changed:
>  ----- Method: EToyProjectDetailsMorph>>fillInDetails (in category 'project details') -----
>  fillInDetails
>  	"Given that the receiver's namedFields is already set up, give each such field its appropriate initial value."
> 
> + 	| elements |
> - 	| elements item |
>  	theProject ifNotNil:
>  		[namedFields at: 'projectname' ifPresent:
>  			[:field | field contentsWrapped: theProject name]].
> 
>  	projectDetails ifNotNil:
>  		[self fieldToDetailsMappings do: [ :tuple |
>  			namedFields at: tuple first ifPresent: [ :field |
>  				projectDetails at: tuple second ifPresent: [ :data |
>  					elements := self choicesFor: tuple first.
>  					elements
>  						ifNil:
>  							[field contentsWrapped: data]
>  						ifNotNil:
> + 							[| item |
> + 							item := elements detect: [:el | el first = data] ifNone: [nil].
> - 							[item := elements detect: [:el | el first = data] ifNone: [nil].
>  							item ifNotNil:
>  								[field contentsWrapped: item third translated]
>  							ifNil:
> + 								[field contentsWrapped: '(none)' translated]]]]].
> + 		"Compatibility with older projects"
> + 		projectDetails at: 'projectcategory' ifPresent: [:data |
> + 			((self choicesFor: #subject)
> + 				detect: [:el | el first = data]
> + 				ifNone: [nil])
> + 					ifNotNil: [:item |
> + 						namedFields
> + 							at: #keywords
> + 							ifPresent: [:field |
> + 								field contentsWrapped:
> + 									(item third translated,
> + 									', ',
> + 									field contents asString)]]]]!
> - 								[field contentsWrapped: '(none)' translated]]]]]]!
> 
> _______________________________________________
> etoys-dev mailing list
> etoys-dev at squeakland.org
> http://lists.squeakland.org/mailman/listinfo/etoys-dev