[Pkg] Installer: Installer-Core-kph.198.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.198.mcz

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

Name: Installer-Core-kph.198
Author: kph
Time: 30 May 2008, 6:40:38 am
UUID: 9bc95b7a-2ef8-40e2-ae0d-8246f42d9330
Ancestors: Installer-Core-kph.197

refactored unload: and added unloadTests:

NOTE use " Installer mc unload: " in future.

=============== Diff against Installer-Core-kph.197 ===============

Item was changed:
  ----- Method: Installer class>>unload: (in category 'unload') -----
  unload: categoryMatchesString 
  
+ ^ self error: 'deprecated, use Installer mc unload: ''pkgname''.'!
- ^ self new unload: categoryMatchesString!

Item was added:
+ ----- Method: Installer>>unloadTests: (in category 'actions') -----
+ unloadTests: match 
+ 
+ 	(MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ])
+ 		 do: [ :wc | 
+  			 	self logCR: 'Unloading ', wc package asString.
+  				wc unloadTests.
+ 	 		
+  	].
+ 
+ 	self unloadCleanUp!

Item was added:
+ ----- Method: Installer>>unloadCleanUp (in category 'actions') -----
+ unloadCleanUp
+  
+ 	SystemOrganization removeEmptyCategories.
+ 
+ 	"Until Mantis 5718 is addressed"
+  	Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ]  ].
+  	Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ].
+ 	SmalltalkImage current fixObsoleteReferences.!

Item was changed:
  ----- Method: Installer>>unload: (in category 'actions') -----
  unload: match 
  
  	(MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ])
  		 do: [ :wc | 
   			 	self logCR: 'Unloading ', wc package asString.
   				wc unload.
+ 	 		
- 	 			SystemOrganization removeEmptyCategories.
   	].
  
+ 	self unloadCleanUp!
- 	"Until Mantis 5718 is addressed"
-  	Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ]  ].
-  	Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ].
- 	SmalltalkImage current fixObsoleteReferences.!