[Pkg] Tasks: Tasks-Common-kph.20.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Mon Dec 8 05:04:18 UTC 2008
A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.20.mcz
==================== Summary ====================
Name: Tasks-Common-kph.20
Author: kph
Time: 8 December 2008, 5:04:17 am
UUID: 11b2d876-90fe-4c96-8acc-b24e0c8850b9
Ancestors: Tasks-Common-kph.19
.
=============== Diff against Tasks-Common-kph.19 ===============
Item was changed:
----- Method: TasksRelease class>>taskFinalize: (in category 'as yet unclassified') -----
taskFinalize: suffix
^ [
SystemVersion newVersion: self versionString, suffix.
SystemVersion current date: Time now asDate.
Utilities setAuthorInitials: ''.
self setBackgroundColor.
]!
Item was added:
+ ----- Method: TasksRelease class>>taskTidyRepositories (in category 'as yet unclassified') -----
+ taskTidyRepositories
+
+ ^ self define: [ :task |
+
+ task action: [
+ MCWorkingCopy allManagers do: [ :ea |
+ ea repositoryGroup
+ initialize;
+ addRepository: self repository;
+ addRepository: ea repository ]
+ ]
+ ]!
Item was changed:
----- Method: TasksRelease class>>suffix (in category 'as yet unclassified') -----
suffix
+ (self name endsWith: 'Unstable') ifTrue: [ ^ 'unstable' ].
- (self name endsWith: 'Unstable') ifTrue: [ ^ 'u' ].
- (self name beginsWith: 'ReleaseCandidate') ifTrue: [ ^ 'rc' ].
(self name beginsWith: 'ReleaseAfter') ifTrue: [ ^ 'tc' ].
+ (self name beginsWith: 'Release') ifTrue: [ ^ 'rc' ].
self error: 'not known'!
Item was changed:
----- Method: TasksRelease class>>taskGoGolden (in category 'as yet unclassified') -----
taskGoGolden
+ ^ self taskFinalize: '-basic'
- ^ self taskFinalize: ''
!
Item was changed:
----- Method: TasksRelease class>>taskFinalize (in category 'as yet unclassified') -----
taskFinalize
+ ^ self taskFinalize: self versionStatus, '-', self suffix!
- ^ self taskFinalize: self suffix!
Item was changed:
----- Method: TasksRelease class>>setBackgroundColor (in category 'as yet unclassified') -----
setBackgroundColor
| gf color version |
version := SystemVersion current version.
color := Color r: 0.0 g: 0.658 b: 0.474. "green for final release"
+ (version endsWith: '-unstable') ifTrue: [ color := Color r: 0.658 g: 0.0 b: 0.474 ]. "pink/red"
- (version endsWith: 'u') ifTrue: [ color := Color r: 0.658 g: 0.0 b: 0.474 ]. "pink/red"
(version endsWith: 'tc') ifTrue: [ color := Color yellow ]. "amber"
(version endsWith: 'rc') ifTrue: [ color := Color r: 0.0 g: 0.0 b: 0.474 ]. "blue"
+ (version endsWith: '-basic') ifTrue: [ color := Color r: 0.0 g: 0.0 b: 0.474 ]. "blue"
+ (version endsWith: '-minimal') ifTrue: [ color := Color r: 0.0 g: 0.2 b: 0.474 ]. "blue"
+ (version endsWith: '-full') ifTrue: [ color := Color r: 0.2 g: 0.0 b: 0.474 ]. "blue"
gf := GradientFillStyle ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
1.0->(color)}.
gf origin: 0 @ 0;
direction: 0 at 400;
normal: 640 at 0;
radial: false.
World fillStyle: gf
!
Item was removed:
- Object subclass: #TasksClean
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Tasks-Common'!
More information about the Packages
mailing list