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