The Trunk: System-mt.1017.mcz

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

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

Name: System-mt.1017
Author: mt
Time: 16 April 2018, 10:28:45.338614 am
UUID: 2640dd42-cad6-574f-a267-c2e8b794fe52
Ancestors: System-mt.1016

Harmonize #authorInitials: and #authorName: in Utilities. Deprecate #setAuthorInitials:. Fix respective clean-up code.

=============== Diff against System-mt.1016 ===============

Item was added:
+ ----- Method: Utilities class>>authorInitials: (in category 'identification') -----
+ authorInitials: aString
+
+ AuthorInitials := aString.
+
+ "Case of being reset due to, eg, copy of image."
+ aString isEmpty ifTrue: [AuthorName := '']!

Item was changed:
  ----- Method: Utilities class>>cleanUp: (in category 'class initialization') -----
  cleanUp: aggressive
+
+ aggressive ifTrue: [
+ self authorInitials: String empty.
+ self authorName: String empty.
+ CommonRequestStrings := nil].!
- aggressive ifTrue: [self setAuthorInitials: String empty].!

Item was changed:
  ----- Method: Utilities class>>setAuthorInitials (in category 'identification') -----
  setAuthorInitials
  "Put up a dialog allowing the user to specify the author's initials.  "
 
+ self authorInitials:
- self setAuthorInitials:
  (UIManager default request: 'Please type your initials: ' translated
  initialAnswer: AuthorInitials)!

Item was removed:
- ----- Method: Utilities class>>setAuthorInitials: (in category 'identification') -----
- setAuthorInitials: aString
-
- AuthorInitials := aString.
-
- "Case of being reset due to, eg, copy of image."
- aString isEmpty ifTrue: [AuthorName := '']!