[Pkg] Tasks: Tasks-Common-kph.19.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Mon Dec 8 01:11:13 UTC 2008
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.
- ].
- ]
- ]
- ].!
More information about the Packages
mailing list