[Pkg] Tasks: Tasks-Common-kph.21.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.21.mcz

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

Name: Tasks-Common-kph.21
Author: kph
Time: 8 December 2008, 10:11:52 am
UUID: cd6e2156-0379-438b-8fea-05a2765107b7
Ancestors: Tasks-Common-kph.20

.

=============== Diff against Tasks-Common-kph.20 ===============

Item was changed:
  ----- Method: TasksRelease class>>taskImportIntoKernelPackage: (in category 'as yet unclassified') -----
+ taskImportIntoKernelPackage: pkgName
- taskImportIntoKernelPackage: pkg
  
  	"Migrate package into the main image"
  
+ 	| newCategory pkg |
- 	| newCategory |
  	^ self define: [ :task |
+ 		
+ 		 
+ 		task dependsOn: { [PackageOrganizer default includesPackageNamed: pkgName] }. "load the package"		
+ 		task action: [
+ 			pkg := PackageInfo named: pkgName. 
- 		task dependsOn: { pkg }. "load the package"		
- 		task action: [ 
  			pkg extensionMethods do: [ :method |
  				newCategory := method category readStream upToAll: ('*', pkg name asLowercase ,'-'); upToAll: '-override'.
  				method actualClass organization classify: method methodSymbol under: newCategory.
  			].
  			pkg classes do: [ :theClass |
  				SystemOrganization classify: theClass name under: theClass destinationCategory.
  				theClass removeSelector: #destinationCategory.
  			].
  		
  		]
  	].!