[Pkg] Sake : Sake-Core-kph.80.mcz

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

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

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

Name: Sake-Core-kph.80
Author: kph
Time: 12 December 2008, 4:50:19 am
UUID: eeecf768-997f-4879-80cb-1da9ab95178a
Ancestors: Sake-Core-kph.79

+ finished the waypoint implementation in a single method
+ MCWorkingCopy saveIn: repo withComment: aComment

=============== Diff against Sake-Core-kph.79 ===============

Item was added:
+ ----- Method: MCWorkingCopy>>taskSaveIn:withComment: (in category '*sake-core') -----
+ taskSaveIn: repo withComment: message
+  
+ 	^ SakeTask define: [ :task |
+  
+ 		task if: [ (self changesRelativeToRepository: repo) isEmpty not ].
+  				
+ 		task action: [ self repositoryGroup addRepository: repo.
+ 				repository storeVersion: (self newVersionWithName: self uniqueVersionName message: message)
+ 			] 
+ 		
+ 	  ].
+  !

Item was changed:
  ----- Method: SakeTask class>>waypoint: (in category 'as yet unclassified') -----
  waypoint: aTask
  	
  	"protected from being repeated by a waypoint"
  
  	^ self define: [ :task |
  					
+ 		task if: [ ((self status at: #waypoints ifAbsentPut: [ Set new ]) includes: aTask hashParts) not ].
- 		task if: [ self isWaypointMissing: aTask hashParts ].
  
  		task action: {
  
  			aTask.
  			
+ 			[ (self status at: #waypoints) add:  aTask hashParts  ].			 
- 			[ self markWaypoint:  aTask hashParts  ].			 
  		}.
  		 
  	].
  !

Item was removed:
- ----- Method: PackageOrganizer class>>taskSaveAllPackagesIn:withComment: (in category '*sake-core') -----
- taskSaveAllPackagesIn: repository withComment: message
- 
- 	^ SakeTask define: [ :task |
-  				
- 		task dependsOn: (self default packageInfos collect: [ :pkgInfo |  pkgInfo taskSaveIn: repository withComment: message ])
- 
- 	].
- 
-  !

Item was removed:
- ----- Method: PackageInfo>>taskSaveIn:withComment: (in category '*sake-core') -----
- taskSaveIn: repository withComment: message
-  
- 	^ SakeTask define: [ :task |
-  
- 		task if: [ (self manager changesRelativeToRepository: repository) isEmpty not ].
-  				
- 		task action: [ self manager repositoryGroup addRepository: repository.
- 				repository storeVersion: (self manager newVersionWithName: self manager uniqueVersionName message: message)
- 			] 
- 		
- 	  ].
-  !