The Trunk: Tools-mt.1007.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-mt.1007.mcz

commits-2
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1007.mcz

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

Name: Tools-mt.1007
Author: mt
Time: 23 October 2020, 12:10:53.141209 pm
UUID: 9ccc180b-1174-b74e-b409-bfe93b29097a
Ancestors: Tools-mt.1006

Make format of "unknown author" match "no timestamp".

=============== Diff against Tools-mt.1006 ===============

Item was changed:
  ----- Method: CodeHolder>>annotationForSelector:ofClass: (in category 'annotation') -----
  annotationForSelector: aSelector ofClass: aClass
  "Provide a line of content for an annotation pane, representing  
  information about the given selector and class"
  | separator aStream requestList |
  aSelector == #Comment
  ifTrue: [^ self annotationForClassCommentFor: aClass].
  aSelector == #Definition
  ifTrue: [^ self annotationForClassDefinitionFor: aClass].
  aSelector == #Hierarchy
  ifTrue: [^ self annotationForHierarchyFor: aClass].
  aStream := (String new: 512) writeStream.
  requestList := self annotationRequests.
  separator := requestList size > 1
  ifTrue: [self annotationSeparator]
  ifFalse: [''].
  requestList
  do: [:aRequest | | aString sendersCount aComment aCategory implementorsCount aList stamp authorInitials |
  aRequest == #firstComment
  ifTrue: [aComment := aClass firstCommentAt: aSelector.
  aComment isEmptyOrNil
  ifFalse: [aStream nextPutAll: aComment , separator]].
  aRequest == #masterComment
  ifTrue: [aComment := aClass supermostPrecodeCommentFor: aSelector.
  aComment isEmptyOrNil
  ifFalse: [aStream nextPutAll: aComment , separator]].
  aRequest == #documentation
  ifTrue: [aComment := aClass precodeCommentOrInheritedCommentFor: aSelector.
  aComment isEmptyOrNil
  ifFalse: [aStream nextPutAll: aComment , separator]].
  aRequest == #timeStamp
  ifTrue: [stamp := self timeStamp.
  aStream
  nextPutAll: (stamp size > 0
  ifTrue: [stamp , separator]
  ifFalse: ['no timeStamp' , separator])].
  aRequest == #author
  ifTrue: [authorInitials := self timeStamp
  findTokens ifEmpty: [''] ifNotEmpty: [:tokens | tokens first].
  aStream
  nextPutAll: (SystemNavigation authorsInverted
  at: authorInitials
  ifPresent: [:fullNames | fullNames anyOne]
+ ifAbsent: ['unknown author']), separator].
- ifAbsent: ['(unknown author)']), separator].
  aRequest == #messageCategory
  ifTrue: [aCategory := aClass organization categoryOfElement: aSelector.
  aCategory
  ifNotNil: ["woud be nil for a method no longer present,  
  e.g. in a recent-submissions browser"
  aStream nextPutAll: aCategory , separator]].
  aRequest == #sendersCount
  ifTrue: [sendersCount := (self systemNavigation allCallsOn: aSelector) size.
  sendersCount := sendersCount = 1
  ifTrue: ['1 sender']
  ifFalse: [sendersCount printString , ' senders'].
  aStream nextPutAll: sendersCount , separator].
  aRequest == #implementorsCount
  ifTrue: [implementorsCount := self systemNavigation numberOfImplementorsOf: aSelector.
  implementorsCount := implementorsCount = 1
  ifTrue: ['1 implementor']
  ifFalse: [implementorsCount printString , ' implementors'].
  aStream nextPutAll: implementorsCount , separator].
  aRequest == #priorVersionsCount
  ifTrue: [self
  addPriorVersionsCountForSelector: aSelector
  ofClass: aClass
  to: aStream].
  aRequest == #priorTimeStamp
  ifTrue: [stamp := VersionsBrowser
  timeStampFor: aSelector
  class: aClass
  reverseOrdinal: 2.
  stamp
  ifNotNil: [aStream nextPutAll: 'prior time stamp: ' , stamp , separator]].
  aRequest == #recentChangeSet
  ifTrue: [aString := ChangesOrganizer mostRecentChangeSetWithChangeForClass: aClass selector: aSelector.
  aString size > 0
  ifTrue: [aStream nextPutAll: aString , separator]].
  aRequest == #allChangeSets
  ifTrue: [aList := ChangesOrganizer allChangeSetsWithClass: aClass selector: aSelector.
  aList size > 0
  ifTrue: [aList size = 1
  ifTrue: [aStream nextPutAll: 'only in change set ']
  ifFalse: [aStream nextPutAll: 'in change sets: '].
  aList
  do: [:aChangeSet | aStream nextPutAll: aChangeSet name , ' ']]
  ifFalse: [aStream nextPutAll: 'in no change set'].
  aStream nextPutAll: separator]].
  ^ aStream contents!