[Pkg] Tasks: Tasks-Common-kph.19.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.19.mcz

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

Name: Tasks-Common-kph.19
Author: kph
Time: 8 December 2008, 1:11:12 am
UUID: f0457a78-ff38-4151-98b6-f9870c08a56b
Ancestors: Tasks-Common-kph.18

.

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

Item was added:
+ ----- Method: TasksRelease class>>taskImportIntoKernelPackage: (in category 'as yet unclassified') -----
+ taskImportIntoKernelPackage: pkg
+ 
+ 	"Migrate package into the main image"
+ 
+ 	| newCategory |
+ 	^ self define: [ :task |
+ 		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.
+ 			].
+ 		
+ 		]
+ 	].!

Item was added:
+ ----- Method: TasksRelease class>>fixesApplied (in category 'as yet unclassified') -----
+ fixesApplied
+ 
+ 	^ self selectors collect: [ :sel | (sel copyFrom: 2 to: 5) asNumber]!

Item was added:
+ ----- Method: TasksRelease class>>taskDocumentFixes (in category 'as yet unclassified') -----
+ taskDocumentFixes
+ 	"document any fixes that have not already been documented"
+ 
+ 	^ self dependingOn: ((Installer mantis fixesApplied difference: self fixesApplied) collect: #asString)!

Item was removed:
- ----- Method: TasksRelease class>>taskDocumentOtherFixes (in category 'as yet unclassified') -----
- taskDocumentOtherFixes
- 	"if some fixes have been loaded by LPF or by other fixes they may have escaped documentation, this uses the Installers list"
- 
- 	^ self define: [ :task |
- 		task dependsOn:  (((Installer mantis fixesApplied) difference: (self selectors collect: [ :sel | (sel copyFrom: 2 to: 5) asNumber])) collect: #asString)
- 	].!

Item was removed:
- ----- Method: TasksRelease class>>taskMovePackageIntoKernel: (in category 'as yet unclassified') -----
- taskMovePackageIntoKernel: packageName 
- 
- 	"Migrate package into the main image"
- 
- 	| newCategory |
- 	^ self define: [ :task |
- 		"task dependsOn: { Packages beta named: packageName }." "assume package is already loaded"		
- 		task action: [ 
- 			(PackageInfo beta named: packageName) in: [ :pkg |
- 				pkg extensionMethods do: [ :method |
- 					newCategory := method category readStream upToAll: ('*', packageName 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.
- 				].
- 			]
- 		]
- 	].!