[squeak-dev] The Trunk: Tools-mt.878.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 19 15:19:46 UTC 2019


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.878.mcz

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

Name: Tools-mt.878
Author: mt
Time: 19 August 2019, 5:19:44.388665 pm
UUID: 3d876f65-8c0f-2643-a695-a1d14e93dd69
Ancestors: Tools-mt.877

Adds missing support for class comments to label styling. Such comments are typically disguised in code-browsing tools using method references with the #Comment selector.

Thanks to ct for the tip!

=============== Diff against Tools-mt.877 ===============

Item was changed:
  ----- Method: CodeHolder>>formattedLabel:forSelector:inClass: (in category 'message list') -----
  formattedLabel: aString forSelector: aSymbol inClass: aClass
  	"Show deprecated messages differently so that users recognize them quickly to avoid them."
  	
  	| formattedLabel |
+ 	(aSymbol = #Definition or: [aSymbol = #Comment])
- 	aSymbol = #Definition
  		ifTrue: [aClass isDeprecated
  			ifFalse: [^ aString]]
  		ifFalse: [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated])
  			ifFalse: [^ aString]].
  	
  	formattedLabel := aString asText.
  	
  	(self userInterfaceTheme deprecatedMessageAttributes ifNil: [{TextColor gray. TextEmphasis struckOut}]) do: [:textAttribute |
  		formattedLabel addAttribute: textAttribute].
  
  	^ formattedLabel.!



More information about the Squeak-dev mailing list