[Pkg] Packages: Packages-Core-kph.37.mcz

[squeaksource-noreply at iam.unibe.ch]

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!