Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.155.mcz
==================== Summary ====================
Name: Tools-ar.155 Author: ar Time: 2 January 2010, 3:59:59 am UUID: d9ba8dcc-6e58-3e40-bffb-e756c3ddab77 Ancestors: Tools-dtl.154
Don't use definitionST80.
=============== Diff against Tools-dtl.154 ===============
Item was changed: ----- Method: MessageSet>>selectedMessage (in category 'contents') ----- selectedMessage "Answer the source method for the currently selected message."
self setClassAndSelectorIn: [:class :selector | | source | class ifNil: [^ 'Class vanished']. selector first isUppercase ifTrue: [selector == #Comment ifTrue: [currentCompiledMethod := class organization commentRemoteStr. ^ class comment]. selector == #Definition ifTrue: + [^ class definition]. - [^ class definitionST80]. selector == #Hierarchy ifTrue: [^ class printHierarchy]]. source := class sourceMethodAt: selector ifAbsent: [currentCompiledMethod := nil. ^ 'Missing'].
self showingDecompile ifTrue: [^ self decompiledSourceIntoContents].
currentCompiledMethod := class compiledMethodAt: selector ifAbsent: [nil]. self showingDocumentation ifTrue: [^ self commentContents].
source := self sourceStringPrettifiedAndDiffed. ^ source asText makeSelectorBoldIn: class]!
squeak-dev@lists.squeakfoundation.org