[Pkg] Tasks: Tasks-Common-kph.30.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.30.mcz

==================== Summary ====================

Name: Tasks-Common-kph.30
Author: kph
Time: 12 December 2008, 4:50:55 am
UUID: 008a787b-86ab-4341-86d6-4eb3be3069b8
Ancestors: Tasks-Common-kph.29

removed waypoint code


=============== Diff against Tasks-Common-kph.29 ===============

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>>suffixStatus (in category 'as yet unclassified') -----
+ suffixStatus
+ 
+ 	^ ''!

Item was added:
+ ----- Method: TasksRelease class>>taskCleanUpAndSaveAs: (in category 'as yet unclassified') -----
+ taskCleanUpAndSaveAs: filename
+ 
+ 	^ [	
+ 		SmalltalkImage current cleanUpAll.
+ 		
+ 		SmalltalkImage current saveAs: filename.
+ 		
+ 	 ].!

Item was added:
+ ----- Method: TasksRelease class>>taskResetFixesAutoDocumentation (in category 'as yet unclassified') -----
+ taskResetFixesAutoDocumentation
+ 	^ self action: ((SakeTask class: self) removeSelectorsMatching: '*')
+ 		!

Item was changed:
  ----- Method: TasksRelease class>>taskFinalize (in category 'as yet unclassified') -----
  taskFinalize
  
+ 	^ self taskFinalize: self suffix, self suffixStatus!
- 	^ self taskFinalize: self versionStatus, '-',  self suffix!

Item was added:
+ ----- Method: TasksRelease class>>taskSaveRehoming:in: (in category 'as yet unclassified') -----
+ taskSaveRehoming: packageNames in: repo
+ 
+ 	| oldVersions wc |
+ 	^ 
+ 		[
+ 	
+ 			packageNames do: [ :pkgName |
+ 				
+ 				"findMostRecentInRepo, put that versionInfo into my history.
+ 				if none, keep the old history"
+ 				
+ 				oldVersions := repo sortedVersionInfosAvailableForPackageNamed: pkgName.
+ 				
+ 				wc := (MCPackage named: pkgName) workingCopy.
+ 				
+ 				oldVersions ifNotEmpty: [ wc versionInfo: oldVersions first ].
+ 				 
+ 				(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion asString, (self buildNumber ifNil: ['']) asString) run.
+ 			].
+ 		
+ 
+ 		]
+ !

Item was removed:
- ----- Method: TasksRelease class>>waypoints (in category 'waypoints') -----
- waypoints
- 
- 	^ self status at: #waypoints ifAbsentPut: [ Set new ]!

Item was removed:
- ----- Method: TasksRelease class>>taskTidyWorld (in category 'as yet unclassified') -----
- taskTidyWorld
- 
- 	^ [ 
- 		World removeAllMorphs.
- 		Transcript open.
- 	]
- 	!

Item was removed:
- ----- Method: TasksRelease class>>markWaypoint: (in category 'waypoints') -----
- markWaypoint: aSymbol
- 
- 	^ self waypoints add: #aSymbol!

Item was removed:
- ----- Method: TasksRelease class>>waypointsReset (in category 'waypoints') -----
- waypointsReset
- 
- 	self status removeKey: #waypoints!