[Pkg] Squeak3.11 Contributions: MethodAuthorship-mtf.12.mcz

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

A new version of Methodauthorship was added to project Squeak3.11 Contributions:
http://www.squeaksource.com/311/MethodAuthorship-mtf.12.mcz

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

Name: MethodAuthorship-mtf.12
Author: mtf
Time: 7 February 2009, 5:45:22 pm
UUID: c2538c1e-d8d5-4216-ba83-1cd0e5d7c134
Ancestors: MethodAuthorship-mtf.11

reverted a couple of things in the history browser back to the way they were in the image, so that it works again

=============== Diff against MethodAuthorship-mtf.11 ===============

Item was changed:
  ----- Method: MethodHistoryBrowser>>browseVersions (in category 'all') -----
  browseVersions
  	"Create and schedule a Versions Browser, showing all versions of the 
  	currently selected message. Answer the browser or nil."
  	| selector class | 
  	self classCommentIndicated
  		ifTrue: [ ClassCommentVersionsBrowser browseCommentOf: self selectedClass.
  			^nil ].
  
  	(selector _ self selectedMessageName)
  		ifNil:[ self inform: 'Sorry, only actual methods have retrievable versions.'. ^nil ]
  		ifNotNil: [
  			class _ self selectedClassOrMetaClass.
  			^MethodHistoryVersionBrowser
+ 				browseVersionsOf: (class compiledMethodAt: selector)
- 				browseVersionsOf: nil
  				class: self selectedClass
  				meta: class isMeta
  				category: (class organization categoryOfElement: selector)
  				selector: selector
  				database: database]!

Item was removed:
- ----- Method: MethodHistoryBrowser>>selectedClass (in category 'all') -----
- selectedClass
- 	"Answer the class that is currently selected. Answer nil if no selection 
- 	exists."
- 
- 	| name pseudoClass |
- 	(name _ self selectedClassName) ifNil: [^ nil].
- 	pseudoClass := PseudoClass new.
- 	pseudoClass name: name.
- 	^pseudoClass.!

Item was removed:
- ----- Method: MethodHistoryBrowser>>classList (in category 'all') -----
- classList
- 
- 	^ ((database keys reject: [:e | e endsWith: ' class']) asSortedCollection: [:a :b | a < b])!