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

[Julian Fitzell]

cool...

On Sun, Sep 27, 2009 at 5:30 PM, Gerhard Obermann <obi068 at gmail.com> wrote:
> done
>
> Gerhard
>
> On Sun, Sep 27, 2009 at 11:57 AM, Julian Fitzell <jfitzell at gmail.com> wrote:
>>
>> 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
>> >
>> _______________________________________________
>> seaside-dev mailing list
>> seaside-dev at lists.squeakfoundation.org
>> http://lists.squeakfoundation.org/mailman/listinfo/seaside-dev
>
>
> _______________________________________________
> seaside-dev mailing list
> seaside-dev at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/mailman/listinfo/seaside-dev
>
>