[Seaside-dev] Re: [Seaside Commits] Seaside 3.0: Seaside-Core-obi.571.mcz

[Julian Fitzell]

I wonder if this might be better as a class extension from the tools
package? The knowledge of whether each item is inherited and so on is
really only of interest to the tools...

Julian

On Sat, Sep 26, 2009 at 7:51 PM,
<squeak-dev-noreply at lists.squeakfoundation.org> wrote:
> Gerhard Obermann uploaded a new version of Seaside-Core to project Seaside 3.0:
> http://www.squeaksource.com/Seaside30/Seaside-Core-obi.571.mcz
>
> ==================== Summary ====================
>
> Name: Seaside-Core-obi.571
> Author: obi
> Time: 26 September 2009, 7:52:30 pm
> UUID: 8d4e1fe3-afa1-7840-80ef-083cc1af5b63
> Ancestors: Seaside-Core-jf.570
>
> - add convenience method to WAUserConfiguration
>
> =============== Diff against Seaside-Core-jf.570 ===============
>
> Item was added:
> + ----- Method: WAUserConfiguration>>currentCollectionAt: (in category 'values') -----
> + currentCollectionAt: key
> +       "get the currently defined values with infos for collection attributes"
> +
> +       | expression attributeCollection |
> +       expression := self expressionAt: key ifAbsent: [].
> +       expression isNil
> +               ifTrue: [attributeCollection := (self at: key) collect: [:each | #inherited -> each ] ]
> +               ifFalse: [
> +                       (expression isKindOf: WAValueExpression)
> +                               ifTrue: [attributeCollection := (expression value collect: [:each | #self -> each ]) asOrderedCollection]
> +                               ifFalse: [attributeCollection := (expression additions collect: [:each | #add -> each]) asOrderedCollection.
> +                                                       attributeCollection addAll: (expression additions collect: [:each | #remove -> each ]).
> +                                                       (self at: key)
> +                                                               do: [:each |
> +                                                                               (attributeCollection detect: [:assoc | assoc value = each] ifNone: []) isNil
> +                                                                                               ifTrue: [attributeCollection add: #inherited -> each ] ] ] ].
> +       ^attributeCollection!
>
>
> _______________________________________________
> commits mailing list
> To unsubscribe, email commits-leave at lists.seaside.st
> http://lists.seaside.st/listinfo/commits
>