Merge pull request #628 from bouraqadi/15545-pharoIssue-method-versio…

…ns-shows-authors-time-stamp

Pharo issue #15545: Restore author and time stamp to method versions

src/NewTools-MethodBrowsers/MessageListPresenter.class.st

@@ -36,6 +36,11 @@ MessageListPresenter class >> defaultLayout [
 		yourself
 ]
 
+{ #category : 'private' }
+MessageListPresenter >> authorOf: anItem [
+	^ anItem author
+]
+
 { #category : 'actions' }
 MessageListPresenter >> browseClassRefs [
 
@@ -183,6 +188,8 @@ MessageListPresenter >> initializePresenters [
 		addColumn: (SpStringTableColumn title: 'Location' evaluated: [ :item | self locationOf: item ]);
 		addColumn: (SpStringTableColumn title: 'Selector' evaluated: [ :item | self selectorOf: item ]);
 		addColumn: (SpStringTableColumn title: 'Package' evaluated: [ :item | self packageOf: item ]);
+		addColumn: (SpStringTableColumn title: 'Time' evaluated: [ :item | self timeStampOf: item ]);
+		addColumn: (SpStringTableColumn title: 'Author' evaluated: [ :item | self authorOf: item ]);
 		beResizable.
 
 	listPresenter outputActivationPort transmitDo: [ :aMethod | self doBrowseMethod ].
@@ -376,6 +383,11 @@ MessageListPresenter >> sortingBlock: aBlock [
 	listPresenter sortingBlock: aBlock
 ]
 
+{ #category : 'private' }
+MessageListPresenter >> timeStampOf: anItem [
+	^ anItem timeStamp
+]
+
 { #category : 'accessing' }
 MessageListPresenter >> topologicSort [
 	^ topologySort