done<br><br>Gerhard<br><br><div class="gmail_quote">On Sun, Sep 27, 2009 at 11:57 AM, Julian Fitzell <span dir="ltr"><<a href="mailto:jfitzell@gmail.com">jfitzell@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
I wonder if this might be better as a class extension from the tools<br>
package? The knowledge of whether each item is inherited and so on is<br>
really only of interest to the tools...<br>
<br>
Julian<br>
<br>
On Sat, Sep 26, 2009 at 7:51 PM,<br>
<<a href="mailto:squeak-dev-noreply@lists.squeakfoundation.org">squeak-dev-noreply@lists.squeakfoundation.org</a>> wrote:<br>
> Gerhard Obermann uploaded a new version of Seaside-Core to project Seaside 3.0:<br>
> <a href="http://www.squeaksource.com/Seaside30/Seaside-Core-obi.571.mcz" target="_blank">http://www.squeaksource.com/Seaside30/Seaside-Core-obi.571.mcz</a><br>
><br>
> ==================== Summary ====================<br>
><br>
> Name: Seaside-Core-obi.571<br>
> Author: obi<br>
> Time: 26 September 2009, 7:52:30 pm<br>
> UUID: 8d4e1fe3-afa1-7840-80ef-083cc1af5b63<br>
> Ancestors: Seaside-Core-jf.570<br>
><br>
> - add convenience method to WAUserConfiguration<br>
><br>
> =============== Diff against Seaside-Core-jf.570 ===============<br>
><br>
> Item was added:<br>
> + ----- Method: WAUserConfiguration>>currentCollectionAt: (in category 'values') -----<br>
> + currentCollectionAt: key<br>
> + "get the currently defined values with infos for collection attributes"<br>
> +<br>
> + | expression attributeCollection |<br>
> + expression := self expressionAt: key ifAbsent: [].<br>
> + expression isNil<br>
> + ifTrue: [attributeCollection := (self at: key) collect: [:each | #inherited -> each ] ]<br>
> + ifFalse: [<br>
> + (expression isKindOf: WAValueExpression)<br>
> + ifTrue: [attributeCollection := (expression value collect: [:each | #self -> each ]) asOrderedCollection]<br>
> + ifFalse: [attributeCollection := (expression additions collect: [:each | #add -> each]) asOrderedCollection.<br>
> + attributeCollection addAll: (expression additions collect: [:each | #remove -> each ]).<br>
> + (self at: key)<br>
> + do: [:each |<br>
> + (attributeCollection detect: [:assoc | assoc value = each] ifNone: []) isNil<br>
> + ifTrue: [attributeCollection add: #inherited -> each ] ] ] ].<br>
> + ^attributeCollection!<br>
><br>
><br>
> _______________________________________________<br>
> commits mailing list<br>
> To unsubscribe, email <a href="mailto:commits-leave@lists.seaside.st">commits-leave@lists.seaside.st</a><br>
> <a href="http://lists.seaside.st/listinfo/commits" target="_blank">http://lists.seaside.st/listinfo/commits</a><br>
><br>
_______________________________________________<br>
seaside-dev mailing list<br>
<a href="mailto:seaside-dev@lists.squeakfoundation.org">seaside-dev@lists.squeakfoundation.org</a><br>
<a href="http://lists.squeakfoundation.org/mailman/listinfo/seaside-dev" target="_blank">http://lists.squeakfoundation.org/mailman/listinfo/seaside-dev</a><br>
</blockquote></div><br>