The Trunk: System-mt.1185.mcz

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!