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 + ]. + ].!