[Pkg] Sake : Sake-Core-kph.98.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.98.mcz

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

Name: Sake-Core-kph.98
Author: kph
Time: 21 January 2009, 3:11:24 pm
UUID: 5faf430b-72f1-460f-b4b9-418d150daea6
Ancestors: Sake-Core-kph.97

added #not
tests pass

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

Item was added:
+ ----- Method: SakeTask>>runLevel (in category 'accessing') -----
+ runLevel
+ 
+ 	^ runLevel!

Item was changed:
  ----- Method: SakeTask>>author:during: (in category 'as yet unclassified') -----
  author: initials during: aBlock
  
  	| tmp |
  	
  	[ 	
  		tmp := Utilities authorInitialsPerSe.
  		author ifNotNil: [ Utilities setAuthorInitials: initials ].
+ 		^ aBlock value.
- 		aBlock value.
  
  	] ensure: [ Utilities setAuthorInitials: tmp ]
  	
  	!

Item was added:
+ ----- Method: SakeTask>>not (in category 'accessing') -----
+ not
+ 
+ 	| r |
+ 	^ self class define: [ :task |
+ 		task action: [ 
+ 			
+ 			r := false.
+ 			
+ 			[ self perform: task runLevel ] on: SakeStop do: [r := true ].
+ 		
+ 			r ifFalse: [ SakeStop signal: '"not" task succeeded' ].
+ 			
+ 			r	
+ 		].
+ 	].!