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

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

Name: SystemReporter-mt.58
Author: mt
Time: 10 March 2022, 3:28:32.255178 pm
UUID: a2bcb67d-48ea-7f4f-a9e0-eba948567997
Ancestors: SystemReporter-eem.57

!!! Adds "Image Locale" to system reporter !!!

Locale clean-up. Complements Multilingual-mt.269 and System-mt.1318

=============== Diff against SystemReporter-eem.57 ===============

Item was changed:
  ----- Method: SystemReporter>>initialize (in category 'initialize-release') -----
  initialize
  	self
  		add: #'Contributors' method: #reportContributors;
  		add: #Image method: #reportImage;
  		add: #'Image Parameters' method: #reportImageParameters;
  		add: #'Image Sources' method: #reportSources;
+ 		add: #'Image Locale' method: #reportImageLocale;
  		add: #'Image Fonts' method: #reportImageFonts;
  		add: #'Image Preferences' method: #reportPreferences;
  		add: #'Image Packages' method: #reportImagePackages;
  		add: #'MC Repositories' method: #reportRepositories;
  		add: #'MC Working Copies' method: #reportWorkingCopies;
  		add: #'VM General' method: #reportVM;
  		add: #'VM Options' method: #reportVMOptions;
  		add: #'VM Modules' method: #reportModules;
  		add: #'VM Parameters' method: #reportVMParameters;
  		add: #'VM Stats' method: #reportVMStats.
  	Smalltalk os platformName = 'Win32' ifTrue: [
  		self
  			add: #'VM Configuration' method: #reportWin32VMConfig.
  		].
  	self
  		add: #'OS General' method: #reportOS.
  	Smalltalk os platformName = 'Win32' ifTrue: [
  		self
  			add: #'OS Details' method: #reportWin32OSDetails;
  			add: #'Hardware Details' method: #reportWin32HardwareDetails;
  			add: #'GFX Hardware Details' method: #reportWin32GFXDetails.
  		].
  	Smalltalk os osVersion = 'linux' ifTrue: [
  		self
  			add: #'OS Details' method: #reportLinuxOSDetails
  	].
  	self
  		add: #'Tiny Benchmarks' method: #reportTinyBenchmarks;
  		add: #'Space Analysis' method: #reportSpaceAnalysis;
  		add: #'SUnit' method: #reportTestRunner;
  		add: #'Debug Log' method: #reportDebugLog.
  	categoriesSelected := Set with: #Image with: #'VM General'.
  	self updateReport
  !

Item was added:
+ ----- Method: SystemReporter>>reportImageLocale: (in category 'reporting') -----
+ reportImageLocale: aStream
+ 	
+ 	| imageLocale platformLocale |
+ 	imageLocale := Locale current.
+ 	platformLocale := Locale currentPlatform.
+ 	
+ 	self header: 'Image Locale Information' on: aStream.
+ 	aStream
+ 		nextPutAll: '   Locale ID: ', imageLocale localeID; cr;
+ 		nextPutAll: '  Translator: ', imageLocale languageTranslator; cr;
+ 		nextPutAll: ' Environment: ', imageLocale languageEnvironment class; nextPutAll: ' (see languages below)'; cr;
+ 		nextPutAll: 'Leading char: ', imageLocale leadingChar; nextPutAll: ' (ie. tag in characters)'; cr.
+ 	
+ 	aStream cr.
+ 	self header: 'Image Default Language(s)' on: aStream.
+ 	aStream
+ 		nextPutAll: (imageLocale languageEnvironment class supportedLanguageNames sorted joinSeparatedBy: ', '); cr;
+ 		cr; nextPutAll: '(These languages belong to the same category when Squeak uses the environment or leading char above to derive rules for language-specific text composition and display. Strings are not limited to this default. See LanguageEnvironment and its subclasses.)'; cr.
+ 	
+ 	aStream cr.
+ 	self header: 'Data Interpretation and Conversion' on: aStream.
+ 	
+ 	aStream
+ 		nextPutAll: '   Source code: ', SourceFiles anyOne converter class; nextPutAll: ' (ie. .sources .changes .cs .st)'; cr;
+ 		nextPutAll: ' Platform data: ',  platformLocale systemConverter class; nextPutAll: ' (aka. #systemConverter)'; cr;
+ 		nextPutAll: '    File names: ',  platformLocale fileNameConverter class; nextPutAll: ' (ie. no content but paths)'; cr;
+ 		nextPutAll: '    User input: ', platformLocale inputInterpreter class; cr;
+ 		nextPutAll: 'Clipboard data: ', platformLocale clipboardInterpreter class; cr.
+ 
+ 	aStream cr.
+ 	self header: 'Platform Locale Information' on: aStream.
+ 
+ 	aStream
+ 		nextPutAll: '          Locale ID: ', platformLocale localeID; cr;
+ 		nextPutAll: '    Currency symbol: ', platformLocale primCurrencySymbol;
+ 			nextPutAll: (platformLocale primCurrencyNotation ifTrue: ['  (prefix)'] ifFalse: [' (postfix)']); cr;
+ 		nextPutAll: ('            Numbers: 1{1}234{2}56'
+ 			format: { platformLocale primDigitGrouping. platformLocale primDecimalSymbol}); cr;
+ 		nextPutAll: '        Measurement: ', (platformLocale primMeasurement ifTrue: ['metric'] ifFalse: ['imperial']); cr;
+ 		nextPutAll: '           Timezone: UTC', (platformLocale primTimezone >= 0 ifTrue: ['+']), (platformLocale primTimezone / 60); 
+ 			nextPutAll: (platformLocale primDST ifTrue: [' (daylight saving time)'] ifFalse: ['']); cr;
+ 		nextPutAll: '        Time format: ', platformLocale primTimeFormat; cr;
+ 		nextPutAll: '(Short) Date format: ', platformLocale primShortDateFormat; cr; 
+ 		nextPutAll: ' (Long) Date format: ', platformLocale primLongDateFormat; cr; 
+ 		cr.!