[squeak-dev] The Inbox: Tools-ct.923.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 7 15:42:19 UTC 2019


A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.923.mcz

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

Name: Tools-ct.923
Author: ct
Time: 7 December 2019, 4:42:14.945219 pm
UUID: 011debad-5545-ed47-b9b8-6118d0c2c79d
Ancestors: Tools-mt.922

Display deprecated classes gray and struck-out as selectors are.

=============== Diff against Tools-mt.922 ===============

Item was changed:
  ----- Method: Browser>>classList (in category 'class list') -----
  classList
  
+ 	^ (self class listClassesHierarchically
- 	^ self class listClassesHierarchically
  		ifTrue: [self hierarchicalClassList]
+ 		ifFalse: [self defaultClassList])
+ 			collect: [:each | self formattedClassLabel: each]!
- 		ifFalse: [self defaultClassList].!

Item was changed:
  ----- Method: ClassCommentVersionsBrowser class>>browseCommentOf: (in category 'instance creation') -----
  browseCommentOf: class
  	Cursor read showWhile:
  		[| changeList |
  		changeList := self new scanVersionsOf: class.
+ 		changeList ifNil: [^ self inform: 'No versions available'].
+ 		self open: changeList name: 'Recent versions of ',class name,'''s comments' multiSelect: false ]
- 	 	 changeList ifNil: [^ self inform: 'No versions available'].
- 		 self open: changeList name: 'Recent versions of ',class name,'''s comments' multiSelect: false ]
  !

Item was added:
+ ----- Method: CodeHolder>>formattedClassLabel: (in category 'message list') -----
+ formattedClassLabel: aString
+ 	
+ 	^ self
+ 		formattedClassLabel: aString
+ 		inClass: (self environment at: aString withBlanksTrimmed asSymbol)!

Item was added:
+ ----- Method: CodeHolder>>formattedClassLabel:inClass: (in category 'message list') -----
+ formattedClassLabel: aString inClass: aClass
+ 	
+ 	^ aClass isDeprecated
+ 		ifFalse: [aString]
+ 		ifTrue: [self formattedDeprecatedLabel: aString]!

Item was added:
+ ----- Method: CodeHolder>>formattedDeprecatedLabel: (in category 'message list') -----
+ formattedDeprecatedLabel: aString
+ 
+ 	^ aString asText
+ 		addAllAttributes: (self userInterfaceTheme deprecatedMessageAttributes
+ 			ifNil: [{TextColor gray. TextEmphasis struckOut}]);
+ 		yourself!

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. This is a performance critical method in the user interface."
  	
- 	| formattedLabel |
  	self flag: #investigate. "mt: aClass must never be nil!! Faulty tools should override this call themselves or fix the caller site."
  	aClass ifNil: [^ aString].
  	
  	(aSymbol = #Definition or: [aSymbol = #Comment])
  		ifTrue: [aClass isDeprecated
  			ifFalse: [^ aString]]
  		ifFalse: [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated])
  			ifFalse: [^ aString]].
  	
+ 	^ self formattedDeprecatedLabel: 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