[squeak-dev] The Trunk: Tools-laza.294.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 3 20:21:49 UTC 2011

Alexander Lazarević uploaded a new version of Tools to project The Trunk:

==================== 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

=============== 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]).

Item was changed:
  ----- Method: DependencyBrowser>>selectedMessage (in category 'contents') -----
  	"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]]
+ 	mref ifNil:[^self class comment].
- 	mref ifNil:[^''].
  	mref methodSymbol == #Definition ifTrue:[^mref actualClass definition].
  	^mref sourceCode!

More information about the Squeak-dev mailing list