[Seaside-dev] Re: [Seaside Commits] Seaside 3.0:
Seaside-Core-obi.571.mcz
Julian Fitzell
jfitzell at gmail.com
Sun Sep 27 16:01:07 UTC 2009
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
>
>
More information about the seaside-dev
mailing list