[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