[Pkg] Packages: Packages-Core-kph.55.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.55.mcz

==================== Summary ====================

Name: Packages-Core-kph.55
Author: kph
Time: 18 August 2008, 11:42:52 pm
UUID: bbdb50a9-f165-41ba-bb13-15c0b0d46aa1
Ancestors: Packages-Core-kph.54

fix typo in generated definitions

=============== Diff against Packages-Core-kph.54 ===============

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.
+ 				source << '	self worksIn: #( ' << self name << ' ).'; cr ; cr.					
- 				source << '	self worksIn: #( ' << self name << ' )'; 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.
   
  			(self sourceCodeAt: selector ifAbsent: nil)	 ~= source contents ifTrue: [								 
  			 
  				self compile: source contents classified: each category printString notifying: nil
  			]
  		].
  		theUUniverse := nil.
  	].	
  ]!