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

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

Name: System-mt.1185
Author: mt
Time: 23 October 2020, 3:49:01.483318 pm
UUID: 95150ca0-412a-2847-9579-0bacb8cb0160
Ancestors: System-mt.1184

Promote annotation requests to be a pragma preference. Needs PreferenceBrowser-mt.108.

=============== Diff against System-mt.1184 ===============

Item was changed:
  ----- Method: Preferences class>>defaultAnnotationRequests (in category 'prefs - annotations') -----
  defaultAnnotationRequests
+ 	"Preferences annotationInfo"
+ 	<preference: 'Annotation panes - requests'
+ 		categoryList: #(browsing tools)
+ 		description: 'Specify the information to show in annotation panes.'
+ 		type: #String>
+ 		
+ 	^ (Parameters at: #MethodAnnotations ifAbsent: [])
+ 			ifNil: [self setDefaultAnnotationInfo]
+ !
- 	^ Parameters at: #MethodAnnotations ifAbsent:
- 		[self setDefaultAnnotationInfo]
- 	"Preferences annotationInfo"!

Item was changed:
  ----- Method: Preferences class>>defaultAnnotationRequests: (in category 'prefs - annotations') -----
+ defaultAnnotationRequests: listOrString
+ 	
+ 	| requests |
+ 	requests := listOrString isString
+ 		ifTrue: [Compiler evaluate: listOrString]
+ 		ifFalse: [listOrString].
+ 	(requests isNil or: [requests allSatisfy: [:request | self annotationInfo anySatisfy: [:info | info first = request]]])
+ 		ifFalse: [self inform: 'Ignored. Please use the following requests:', String cr, String cr, 
+ 			(self annotationInfo inject: '' into: [:all :spec | all, spec first printString, String tab, spec second, String cr])]
+ 		ifTrue: [Parameters at: #MethodAnnotations put: requests]!
- defaultAnnotationRequests: newList
- 	^ Parameters at: #MethodAnnotations put: newList!