A new version of Packages-Core was added to project Packages: http://www.squeaksource.com/Packages/Packages-Core-kph.43.mcz
==================== Summary ====================
Name: Packages-Core-kph.43 Author: kph Time: 7 July 2008, 2:04:34 am UUID: 3f4aa5ed-89b1-485a-a6ed-4bfffec0793b Ancestors: Packages-Core-kph.42
added #worksIn
self worksIn: #(PackagesSqueak310 PackagesSqueak39)
=============== Diff against Packages-Core-kph.42 ===============
Item was added: + ----- Method: Packages>>worksIn: (in category 'as yet unclassified') ----- + worksIn: aListOfClassNames + + self info worksIn: aListOfClassNames.!
Item was added: + ----- Method: Packages>>worksIn (in category 'as yet unclassified') ----- + worksIn + + ^ self info worksIn!
Item was changed: ----- Method: Packages class>>taskGenerateUniversePackageTasks (in category 'tasks - universes') ----- taskGenerateUniversePackageTasks
| source selector | ^ SakeTask define: [ :task | task dependsOn: { [ self isUniverse ]. self taskUpdateUniverse. self taskRemoveOldPackages. }.
task action: [ (self theUUniverse packageNames collect: [ :each | self theUUniverse newestPackageNamed: each ]) do: [ :each | source := (WriteStream on: String new). source << (selector := self asSelector: each name). source cr; cr. source << ' self name: ' << each name printString << '.' ; cr. source << ' self version: ''' << each version << '''.' ; cr; cr. source << ' info category: ''' << each category printString << '''.' ; cr. source << ' info description: ' ; cr. source << each description withSqueakLineEndings printString << '.' ; cr. source << ' info maintainer: ''' << each maintainer << '''.' ; cr. source << ' info homepage: ''' << (each homepage ifNil: ['']) asString << '''.' ; cr. source << ' info squeakMapID: ''' << (each squeakMapID ifNil: ['']) asString << '''.' ; cr. source << ' info url: ''' << each url printString << '''.' ; cr. source << ' self provides: ' << each provides asArray printString << '.' ; cr ; cr. source << ' self dependsOn: ' << each depends asSortedCollection asArray printString << '.' ; cr ; cr. source << ' self load: [' ; cr.
each url ifNotNil: [ source << ' Installer installUrl:''' << each url printString << '''.' ; cr. ]. source << ' ].' ; cr ; cr. + "source << ' self unloadDependsOn: { self taskUnloadDependants }.' ; cr." - source << ' self unloadDependsOn: { self taskUnloadDependants }.' ; cr. source << ' self unload: [' ; cr. each url ifNotNil: [ source << ' Installer mc unload: ' << each name printString << '.' ; cr. ]. source << ' ].'. (self sourceCodeAt: selector ifAbsent: nil) ~= source contents ifTrue: [ self compile: source contents classified: each category printString notifying: nil ] ]. theUUniverse := nil. ]. ]!
Item was changed: ----- Method: Packages>>beUnloading (in category 'as yet unclassified') ----- beUnloading
actionBlock := unloadBlock. + priors := (unloadPriors ifNil: [ Array with: self taskUnloadDependants ]). - priors := unloadPriors. hasRun := false.!
packages@lists.squeakfoundation.org