[Pkg] Tasks: Tasks-Common-kph.18.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sun Dec 7 07:07:07 UTC 2008
A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.18.mcz
==================== Summary ====================
Name: Tasks-Common-kph.18
Author: kph
Time: 7 December 2008, 7:07:06 am
UUID: efd5262e-c83c-4b13-a7b6-7ec730b2ade7
Ancestors: Tasks-Common-kph.17
.
=============== Diff against Tasks-Common-kph.17 ===============
Item was changed:
----- Method: TasksRelease class>>taskCleanUp (in category 'as yet unclassified') -----
taskCleanUp
^ [
SmalltalkImage current cleanUpAll.
+ "(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
- (Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents'].
Smalltalk at: #Browser ifPresent:[:br| br initialize].
Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
]
!
Item was changed:
----- 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 dependsOn: { Packages current named: packageName }." "assume package is already loaded"
task action: [
+ (PackageInfo beta named: packageName) in: [ :pkg |
- (PackageInfo 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