[Pkg] Tasks: Tasks-Squeak310-kph.41.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Tasks-Squeak310 was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Squeak310-kph.41.mcz

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

Name: Tasks-Squeak310-kph.41
Author: kph
Time: 13 December 2008, 4:29:26 am
UUID: 2a34cd41-09b6-4f7b-9c12-c911329d3566
Ancestors: Tasks-Squeak310-kph.40

dont tidy all the morphs that edgar did, remove duplical Pacakge Loader

=============== Diff against Tasks-Squeak310-kph.40 ===============

Item was changed:
  ----- Method: Squeak310MakeBuildCandidate class>>taskBUILD (in category 'as yet unclassified') -----
  taskBUILD
  
  	"starting with 3.10 or 3.10.2 get the image into a known state for fixes to be applied"
  
  	^ self action: {
  			
  			self taskResetFixesAutoDocumentation.
  	
+ 			[ Transcript open ].
- 			[World removeAllMorphs.		
- 			 Transcript open ].
  		
+ 			self taskRemoveItemFromTools: 'Package Loader'.
+ 
- 			self taskTidyMorphs.
-  			
  			self taskSetPreferences. 
  			
  			self taskGoAtomic.			
  			self taskUpgradePackages.
  			
  			self taskEssentialFixes.
  			self taskDocumentFixes. "so far"
  		
  			self taskFinalize asTask run.
  
  			self taskTidyPackageOrganizer.
  			self taskSaveRehoming: self kernelPackages in: self repositoryInputBC.
  
  		}
  "
  self taskBUILD runStepping. 
  "
  !

Item was added:
+ ----- Method: Squeak310MakeBuildCandidate class>>taskRemoveItemFromTools: (in category 'as yet unclassified') -----
+ taskRemoveItemFromTools: aToolName
+ 
+ 	"thanks edgar"
+ 
+ 	| partBins aButton |
+ 	^ self action: [
+ 	 
+ 			aButton := SimpleButtonMorph new label: 'Tools'.
+ 			aButton actWhen: #buttonDown.
+ 
+ 			partBins := OrderedCollection new.
+ 
+ 			(Flaps globalFlapTabWithID: 'Objects') ifNotNilDo: [ :objFl |
+ 				objFl referent showCategory: 'Tools' fromButton: aButton.
+ 				partBins add: (objFl referent submorphs at: 1).
+ 			].
+ 			(Flaps globalFlapTabWithID: 'Tools') ifNotNilDo: [ :objFl |
+ 				partBins add: objFl referent.
+ 			].
+ 			
+ 			partBins do: [ :bin |
+ 				(bin submorphThat: [:any| (any arguments at: 2) = aToolName ] ifNone: [ nil ])
+ 					ifNotNilDo: [ :unwantedMorph | unwantedMorph delete ].
+ 			].
+ 		].!