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

[Gerhard Obermann]

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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/seaside-dev/attachments/20090927/88b547e1/attachment.htm