Yay -- hooray once again for Richo! Great for this one to get done!
-- Scott
On Feb 28, 2012, at 7:29 PM, commits@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 |namedFieldsat: #keywordsifPresent: [:field |field contentsWrapped:(item third translated,', ',field contents asString)]]]]!
[field contentsWrapped: '(none)' translated]]]]]]!
etoys-dev mailing list etoys-dev@squeakland.org http://lists.squeakland.org/mailman/listinfo/etoys-dev