A new version of Tasks-Common was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Common-kph.16.mcz
==================== Summary ====================
Name: Tasks-Common-kph.16 Author: kph Time: 2 October 2008, 4:00:05 pm UUID: 0c713cc2-cd9f-4065-a2e7-6fcac1ea3eec Ancestors: Tasks-Common-kph.15
added missing methods fix: fixIfUnstable: fixOneDay:
=============== Diff against Tasks-Common-kph.14 ===============
Item was changed: ----- Method: TasksRelease class>>string: (in category 'as yet unclassified') ----- string: aBugRef + - ^ self taskEnsureFix: aBugRef!
Item was added: + ----- Method: TasksRelease class>>fixOneDay: (in category 'as yet unclassified') ----- + fixOneDay: ref + + ^ nil!
Item was added: + ----- Method: TasksRelease class>>fixIfUnstable: (in category 'as yet unclassified') ----- + fixIfUnstable: ref + + ^ self isStable ifTrue: [ nil ] ifFalse: [ self taskEnsureFix: ref ].!
Item was changed: SakeTask subclass: #TasksRelease + instanceVariableNames: 'isStable' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tasks-Common'!
Item was changed: ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') ----- + taskEnsureFix: aFixString - taskEnsureFix: aFixNumberOrString
| theBugPage theBugScript fields selector cat |
+ + ^ self define: [ :task | + - task action: [ "install the fix and record its details for posterity"
+ theBugPage := Installer mantis bug: aFixString. + theBugScript := Installer mantis bugScript: aFixString. - - theBugPage := Installer mantis bug: aFixNumberOrString. - theBugScript := Installer mantis bugScript: aFixNumberOrString. 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.
+ Installer mantis ensureFix: aFixString. - Installer mantis ensureFix: aFixNumberOrString. ]. ]!
Item was added: + ----- Method: TasksRelease class>>fix: (in category 'as yet unclassified') ----- + fix: ref + "abbrev" + ^ self taskEnsureFix: ref!
Item was added: + ----- Method: TasksRelease class>>isStable (in category 'as yet unclassified') ----- + isStable + + self withAllSuperclassesDo: [ :ea | (ea name endsWith: 'Unstable') ifTrue: [ ^ true ] ]. + + ^ false + + !
Item was removed: - ----- Method: TasksRelease class>>fix (in category 'as yet unclassified') ----- - fix - - ^ Smalltalk at: ('TasksFix', (SystemVersion current majorMinorVersion copyWithout: $.)) asSymbol!