[squeak-dev] The Trunk: Monticello-ct.738.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 30 16:18:18 UTC 2021


Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ct.738.mcz

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

Name: Monticello-ct.738
Author: ct
Time: 10 March 2021, 6:22:01.061559 pm
UUID: 6401b50a-de37-1043-bd96-6821e9ab3434
Ancestors: Monticello-mt.736

Supports author name in and removes redundant spaces from the annotation string of a method definition. Kind of complements Tools-ct.1015, but is loadable stand-alone.

=============== Diff against Monticello-mt.736 ===============

Item was changed:
  ----- Method: MCMethodDefinition>>printAnnotations:on: (in category 'annotations') -----
  printAnnotations: requests on: aStream
  	"Add a string for an annotation pane, trying to fulfill the annotation requests.
  	These might include anything that
  		Preferences defaultAnnotationRequests 
  	might return. Which includes anything in
  		Preferences annotationInfo
  	To edit these, use:"
  	"Preferences editAnnotations"
  
+ 	| annotations |
+ 	annotations := requests
+ 		collect: [:request | request
+ 			caseOf: {
+ 				[#timeStamp] -> [self timeStamp].
+ 				[#author] -> [
+ 					| initials |
+ 					initials := self timeStamp ifNotNil: [:timeStamp |
+ 						timeStamp findTokens ifNotEmpty: [:tokens | tokens first]].
+ 					SystemNavigation authorsInverted
+ 						at: initials
+ 						ifPresent: [:fullNames | fullNames anyOne]
+ 						ifAbsent: ['unknown author' translated]].
+ 				[#messageCategory] -> [self category].
+ 				[#requirements] -> [self requirements joinSeparatedBy: Character space] }
+ 			otherwise: []]
+ 		thenSelect: [:annotation | annotation isEmptyOrNil not].
+ 	
+ 	annotations 
+ 		do: [:annotation | aStream nextPutAll: annotation]
+ 		separatedBy: [aStream space].!
- 	requests do: [ :aRequest |
- 		aRequest == #timeStamp ifTrue: [ aStream nextPutAll: self timeStamp ].
- 		aRequest == #messageCategory ifTrue: [ aStream nextPutAll: self category ].
- 		aRequest == #requirements ifTrue: [
- 			self requirements do: [ :req |
- 				aStream nextPutAll: req ] separatedBy: [ aStream space ]].
- 	] separatedBy: [ aStream space ].!



More information about the Squeak-dev mailing list