[Pkg] The Trunk: Tools-ar.155.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jan 2 03:00:53 UTC 2010


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



More information about the Packages mailing list