[Pkg] Packages: Packages-Core-kph.37.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Fri May 30 17:53:29 UTC 2008
A new version of Packages-Core was added to project Packages:
http://www.squeaksource.com/Packages/Packages-Core-kph.37.mcz
==================== Summary ====================
Name: Packages-Core-kph.37
Author: kph
Time: 30 May 2008, 6:53:25 pm
UUID: ede90fb2-8ee0-4417-bd11-f7afb0e2276d
Ancestors: Packages-Core-kph.36
Installer unload:
becomes
Installer mc unload:
=============== Diff against Packages-Core-kph.36 ===============
Item was added:
+ ----- Method: Packages class>>privateIsDefined: (in category 'private') -----
+ privateIsDefined: packageName
+
+ ^ self respondsTo: (self asSelector: packageName)!
Item was changed:
----- Method: Packages class>>taskGenerateUniversePackageTasks (in category 'tasks - universes') -----
taskGenerateUniversePackageTasks
+ | source |
- | source selector |
^ SakeTask define: [ :task |
task dependsOn: {
[ self isUniverse ].
(SakeTask class: self) removeSelectorsMatching: '*'.
self taskUpdateUniverse.
}.
task action: [
(self theUUniverse packageNames collect: [ :each | self theUUniverse newestPackageNamed: each ]) do: [ :each |
source := (WriteStream on: String new).
+ source << (self asSelector: each name).
- 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 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 unload: [' ; cr.
each url ifNotNil: [
+ source << ' Installer mc unload: ' << each name printString << '.' ; cr.
- source << ' Installer unload: ' << each name printString << '.' ; cr.
].
source << ' ].'.
+
+
+ self compile: source contents classified: each category printString notifying: nil
-
- (self sourceCodeAt: selector) ~= source ifTrue: [
- self compile: source contents classified: each category printString notifying: nil
- ]
].
theUUniverse := nil.
].
]!
Item was added:
+ ----- Method: Packages class>>isBeta (in category 'testing') -----
+ isBeta
+
+ ^ self name endsWith: 'beta'!
Item was changed:
----- Method: Packages class>>basicNamed: (in category 'private') -----
basicNamed: packageName
+ ^ ((self isCurrent or: [ self privateIsDefined: packageName ]) ifTrue: [ self ] ifFalse: [ self current ])
+
+ basicNew perform: (self asSelector: packageName); initialize; yourself!
- ^ self basicNew perform: (self asSelector: packageName); initialize; yourself!
Item was changed:
----- Method: Packages class>>current (in category 'public') -----
current
+ ^ (Smalltalk classNamed: ('Packages' , SystemVersion current version asLegalSelector capitalized) asSymbol)
+
+ ifNil: [ Smalltalk classNamed: ('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized) asSymbol ]
+ !
- ^ Smalltalk classNamed: ('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized) asSymbol!
More information about the Packages
mailing list