A new version of Tasks-Common was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Common-kph.51.mcz
==================== Summary ====================
Name: Tasks-Common-kph.51 Author: test Time: 29 December 2008, 1:11:53 am UUID: 316d8272-389c-4829-a1cd-96d3cc9de7df Ancestors: Tasks-Common-kph.50
fix to taskEnsureFix
=============== Diff against Tasks-Common-kph.50 ===============
Item was changed: ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') ----- taskEnsureFix: aFixString
| theBug theBugPage theBugScript fields selector cat | ^ self define: [ :task | task info fixNumber: aFixString asNumber. task action: [ "install the fix and record its details for posterity"
+ theBug := Installer mantis setBug: aFixString. - theBug := Installer mantis bug: aFixString. theBugPage := theBug report. theBugScript := theBug script. fields := self mantisFieldsFrom: theBugPage. selector := fields at: 'Summary'. selector := ('m', (selector copyFrom: 3 to: (selector size min: 40))) asLegalSelector asSymbol. cat := (fields at: 'Status') ,'-' ,(fields at: 'Resolution'). self at: selector category: cat putMethod: theBugScript doc: theBugPage. + theBug ensureFix. - Installer mantis ensureFix: aFixString. ]. ]
!
packages@lists.squeakfoundation.org