Yes, of course!<br><br><br><div class="gmail_quote">On Thu, Oct 8, 2009 at 6:48 AM, Lukas Renggli <span dir="ltr">&lt;<a href="mailto:renggli@gmail.com">renggli@gmail.com</a>&gt;</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;">
Wouldn&#39;t it make more sense to add an additional field called<br>
&#39;license&#39; to WAPackage that is #MIT by default but can be changed to<br>
#LGPL?<br>
<br>
2009/10/6  &lt;<a href="mailto:squeak-dev-noreply@lists.squeakfoundation.org">squeak-dev-noreply@lists.squeakfoundation.org</a>&gt;:<br>
&gt; Gerhard Obermann uploaded a new version of Seaside-Pharo-Development to project Seaside 3.0:<br>
&gt; <a href="http://www.squeaksource.com/Seaside30/Seaside-Pharo-Development-obi.17.mcz" target="_blank">http://www.squeaksource.com/Seaside30/Seaside-Pharo-Development-obi.17.mcz</a><br>
&gt;<br>
&gt; ==================== Summary ====================<br>
&gt;<br>
&gt; Name: Seaside-Pharo-Development-obi.17<br>
&gt; Author: obi<br>
&gt; Time: 7 October 2009, 7:41:59 am<br>
&gt; UUID: 19eb022f-9992-cf48-9aa1-258b1615e973<br>
&gt; Ancestors: Seaside-Pharo-Development-obi.16<br>
&gt;<br>
&gt; - really use LGPL packages<br>
&gt;<br>
&gt; =============== Diff against Seaside-Pharo-Development-obi.16 ===============<br>
&gt;<br>
&gt; Item was changed:<br>
&gt;  ----- Method: WADevelopment class&gt;&gt;packagesLGPL (in category &#39;accessing&#39;) -----<br>
&gt;  packagesLGPL<br>
&gt;        &quot;Answer a list of Seaside LGPL licensed packages as PackageInfo instances. Its a hack because only the description can be currently used to filter the LGPL packages&quot;<br>
&gt; +       ^ ((GRPackage packages select: [:each | each description notNil and: [each description includesSubString: &#39;(LGPL)&#39;] ]) sortBy: [ :a :b | a name &lt; b name ]) collect: [ :each | PackageInfo named: each name ]!<br>

&gt; -       ^ ((GRPackage packages select: [:each | each description notNil and: [&#39;*(LGPL)*&#39; match: each description ] ]) sortBy: [ :a :b | a name &lt; b name ]) collect: [ :each | PackageInfo named: each name ]!<br>

&gt;<br>
&gt; Item was changed:<br>
&gt;  ----- Method: WADevelopment class&gt;&gt;packagesMIT (in category &#39;accessing&#39;) -----<br>
&gt;  packagesMIT<br>
&gt;        &quot;Answer a list of Seaside MIT licensed packages as PackageInfo instances.&quot;<br>
&gt; +       ^ ((GRPackage packages select: [:each | each description isNil or: [(each description includesSubString: &#39;(LGPL)&#39;) not] ]) sortBy: [ :a :b | a name &lt; b name ]) collect: [ :each | PackageInfo named: each name ]!<br>

&gt; -       ^ ((GRPackage packages select: [:each | each description notNil and: [(&#39;*(LGPL)*&#39; match: each description) not] ]) sortBy: [ :a :b | a name &lt; b name ]) collect: [ :each | PackageInfo named: each name ]!<br>

&gt;<br>
&gt; Item was added:<br>
&gt; + ----- Method: WADevelopment class&gt;&gt;addSeasideLGPLRepository (in category &#39;monticello-repositories&#39;) -----<br>
&gt; + addSeasideLGPLRepository<br>
&gt; +       self addRepository: self defaultLGPLRepository toWorkingCopies: (self workingCopiesFor: self packagesLGPL)!<br>
&gt;<br>
&gt; Item was added:<br>
&gt; + ----- Method: WADevelopment class&gt;&gt;defaultLGPLRepository (in category &#39;monticello-repositories&#39;) -----<br>
&gt; + defaultLGPLRepository<br>
&gt; +       ^ self seaside30LGPLRepository!<br>
&gt;<br>
&gt; Item was removed:<br>
&gt; - ----- Method: WADevelopment class&gt;&gt;addSeasideRepositoryLGPL (in category &#39;monticello-repositories&#39;) -----<br>
&gt; - addSeasideRepositoryLGPL<br>
&gt; -       self addRepository: self defaultRepository toWorkingCopies: (self workingCopiesFor: self packagesLGPL)!<br>
&gt;<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; commits mailing list<br>
&gt; To unsubscribe, email <a href="mailto:commits-leave@lists.seaside.st">commits-leave@lists.seaside.st</a><br>
&gt; <a href="http://lists.seaside.st/listinfo/commits" target="_blank">http://lists.seaside.st/listinfo/commits</a><br>
&gt;<br>
<font color="#888888"><br>
<br>
<br>
--<br>
Lukas Renggli<br>
<a href="http://www.lukas-renggli.ch" target="_blank">http://www.lukas-renggli.ch</a><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>
</font></blockquote></div><br>