[Pkg] Packages: Packages-Core-kph.38.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Mon May 26 11:05:49 UTC 2008
A new version of Packages-Core was added to project Packages:
http://www.squeaksource.com/Packages/Packages-Core-kph.38.mcz
==================== Summary ====================
Name: Packages-Core-kph.38
Author: kph
Time: 26 May 2008, 12:05:47 pm
UUID: df377dae-dd1a-4729-bf81-2435e4359299
Ancestors: Packages-Core-kph.37
removing old packages works.
only update package definitions which have changed
=============== Diff against Packages-Core-kph.37 ===============
Item was changed:
----- Method: Packages class>>taskRemoveOldPackages (in category 'tasks - universes') -----
taskRemoveOldPackages
^ SakeTask define: [ :task |
task dependsOn: { [ self isUniverse ]. self taskUpdateUniverse. }.
task action: [
(self selectors difference:
+ (self theUUniverse packageNames collect: [ :each | self asSelector: each ]))
- (self theUUniverse packageNames collect: [ :each | self asSelector: each name ]))
do: [ :old | self removeSelector: old ]
].
]!
Item was changed:
----- Method: Packages class>>asSelector: (in category 'utils') -----
asSelector: aName
| toUse |
+
toUse := ''.
aName do:
[:char | char isAlphaNumeric ifTrue: [toUse := toUse copyWith: char]].
(aName size == 0 or: [aName first isLetter not])
ifTrue: [toUse := 'v', toUse].
^ toUse asSymbol
!
More information about the Packages
mailing list