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@lists.squeakfoundation.org