[Seaside-dev] Re: [Seaside Commits] Seaside 3.0: Seaside-Pharo-Development-obi.17.mcz

[Gerhard Obermann]

Yes, of course!


On Thu, Oct 8, 2009 at 6:48 AM, Lukas Renggli <renggli at gmail.com> wrote:

> Wouldn't it make more sense to add an additional field called
> 'license' to WAPackage that is #MIT by default but can be changed to
> #LGPL?
>
> 2009/10/6  <squeak-dev-noreply at lists.squeakfoundation.org>:
> > Gerhard Obermann uploaded a new version of Seaside-Pharo-Development to
> project Seaside 3.0:
> >
> http://www.squeaksource.com/Seaside30/Seaside-Pharo-Development-obi.17.mcz
> >
> > ==================== Summary ====================
> >
> > Name: Seaside-Pharo-Development-obi.17
> > Author: obi
> > Time: 7 October 2009, 7:41:59 am
> > UUID: 19eb022f-9992-cf48-9aa1-258b1615e973
> > Ancestors: Seaside-Pharo-Development-obi.16
> >
> > - really use LGPL packages
> >
> > =============== Diff against Seaside-Pharo-Development-obi.16
> ===============
> >
> > Item was changed:
> >  ----- Method: WADevelopment class>>packagesLGPL (in category
> 'accessing') -----
> >  packagesLGPL
> >        "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"
> > +       ^ ((GRPackage packages select: [:each | each description notNil
> and: [each description includesSubString: '(LGPL)'] ]) sortBy: [ :a :b | a
> name < b name ]) collect: [ :each | PackageInfo named: each name ]!
> > -       ^ ((GRPackage packages select: [:each | each description notNil
> and: ['*(LGPL)*' match: each description ] ]) sortBy: [ :a :b | a name < b
> name ]) collect: [ :each | PackageInfo named: each name ]!
> >
> > Item was changed:
> >  ----- Method: WADevelopment class>>packagesMIT (in category 'accessing')
> -----
> >  packagesMIT
> >        "Answer a list of Seaside MIT licensed packages as PackageInfo
> instances."
> > +       ^ ((GRPackage packages select: [:each | each description isNil
> or: [(each description includesSubString: '(LGPL)') not] ]) sortBy: [ :a :b
> | a name < b name ]) collect: [ :each | PackageInfo named: each name ]!
> > -       ^ ((GRPackage packages select: [:each | each description notNil
> and: [('*(LGPL)*' match: each description) not] ]) sortBy: [ :a :b | a name
> < b name ]) collect: [ :each | PackageInfo named: each name ]!
> >
> > Item was added:
> > + ----- Method: WADevelopment class>>addSeasideLGPLRepository (in
> category 'monticello-repositories') -----
> > + addSeasideLGPLRepository
> > +       self addRepository: self defaultLGPLRepository toWorkingCopies:
> (self workingCopiesFor: self packagesLGPL)!
> >
> > Item was added:
> > + ----- Method: WADevelopment class>>defaultLGPLRepository (in category
> 'monticello-repositories') -----
> > + defaultLGPLRepository
> > +       ^ self seaside30LGPLRepository!
> >
> > Item was removed:
> > - ----- Method: WADevelopment class>>addSeasideRepositoryLGPL (in
> category 'monticello-repositories') -----
> > - addSeasideRepositoryLGPL
> > -       self addRepository: self defaultRepository toWorkingCopies: (self
> workingCopiesFor: self packagesLGPL)!
> >
> >
> > _______________________________________________
> > commits mailing list
> > To unsubscribe, email commits-leave at lists.seaside.st
> > http://lists.seaside.st/listinfo/commits
> >
>
>
>
> --
> Lukas Renggli
> http://www.lukas-renggli.ch
> _______________________________________________
> 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/20091008/a5da32a3/attachment.htm