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

[Lukas Renggli]

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