The Trunk: Tools-laza.294.mcz

Alexander Lazarević uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-laza.294.mcz

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

Name: Tools-laza.294
Author: laza
Time: 3 February 2011, 9:21:19.739 pm
UUID: 1b6fdc16-3cdf-3f45-bb5b-520c65f1e983
Ancestors: Tools-cmm.293

Display DependencyBrowsers class comment in it's code pane while no method is selected, to give a clue about what is being shown in the list
views

=============== Diff against Tools-cmm.293 ===============

Item was changed:
  ----- Method: DependencyBrowser>>aboutToStyle: (in category 'contents') -----
  aboutToStyle: aStyler
  "This is a notification that aStyler is about to re-style its text.
  Set the classOrMetaClass in aStyler, so that identifiers
  will be resolved correctly.
  Answer true to allow styling to proceed, or false to veto the styling"
  | selectedClass |
  selectedClass := self classListSelection ifNil:[^false].
+ self messageListSelection ifNil:[^false].
  aStyler classOrMetaClass: ((self messageListSelection == #Definition) ifFalse:[Smalltalk classNamed: selectedClass]).
  ^true!

Item was changed:
  ----- Method: DependencyBrowser>>selectedMessage (in category 'contents') -----
  selectedMessage
  "Source code for currently selected message"
  | className methodName mref |
  className := self classListSelection.
  methodName := self messageListSelection.
  mref := (classDeps at: self classDepsSelection ifAbsent:[#()])
  detect:[:mr| mr classSymbol = className
  and:[mr methodSymbol = methodName]]
  ifNone:[nil].
+ mref ifNil:[^self class comment].
- mref ifNil:[^''].
  mref methodSymbol == #Definition ifTrue:[^mref actualClass definition].
  ^mref sourceCode!