The Trunk: Tools-ar.155.mcz

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]!