The Inbox: System-ul.496.mcz

A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ul.496.mcz

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

Name: System-ul.496
Author: ul
Time: 14 September 2012, 2:54:39.996 pm
UUID: 762fe830-0bfc-f545-b636-7811666df4ab
Ancestors: System-ul.495

- redirect author related methods from Utilities to Author
- removed AuthorInitials and AuthorName from Utilities

=============== Diff against System-ul.495 ===============

Item was changed:
  Object subclass: #Utilities
  instanceVariableNames: ''
+ classVariableNames: 'CommonRequestStrings LastStats RecentSubmissions ScrapsBook UpdateDownloader UpdateUrlLists'
- classVariableNames: 'AuthorInitials AuthorName CommonRequestStrings LastStats RecentSubmissions ScrapsBook UpdateDownloader UpdateUrlLists'
  poolDictionaries: ''
  category: 'System-Support'!
 
  !Utilities commentStamp: '<historical>' prior: 0!
  A repository for general and miscellaneous utilities; much of what is here are in effect global methods that don't naturally attach to anything else.  1/96 sw!

Item was changed:
  ----- Method: Utilities class>>authorInitials (in category 'identification') -----
  authorInitials
  "Answer the initials to be used to identify the current code author.  "
 
+ ^Author initials!
- [AuthorInitials isEmpty] whileTrue: [self setAuthorInitials].
- ^ AuthorInitials!

Item was changed:
  ----- Method: Utilities class>>authorInitialsPerSe (in category 'identification') -----
  authorInitialsPerSe
  "Answer the currently-prevailing author initials, such as they, empty or not"
 
+ ^Author initialsPerSe!
- ^ AuthorInitials!

Item was changed:
  ----- Method: Utilities class>>authorName (in category 'identification') -----
  authorName
+
+ ^Author username!
- AuthorName ifEmpty: [self setAuthorName].
- ^ AuthorName!

Item was changed:
  ----- Method: Utilities class>>authorName: (in category 'identification') -----
  authorName: aString
+
+ Author current username: aString!
- AuthorName := aString!

Item was changed:
  ----- Method: Utilities class>>authorNamePerSe (in category 'identification') -----
  authorNamePerSe
 
+ ^Author usernamePerSe!
- ^ AuthorName!

Item was changed:
  ----- Method: Utilities class>>changeStamp (in category 'identification') -----
  changeStamp
+
+ ^Author changeStamp!
- "Answer a string to be pasted into source code to mark who changed it and when."
- ^ self authorInitials , ' ' , Date today mmddyyyy, ' ',
- ((String streamContents: [:s | Time now print24: true on: s]) copyFrom: 1 to: 5)!

Item was changed:
  ----- Method: Utilities class>>changeStampPerSe (in category 'identification') -----
  changeStampPerSe
+
+ ^Author changeStampPerSe!
- "Answer a string to be pasted into source code to mark who changed it and when."
- ^String streamContents:
- [ : stream |
- self authorInitialsPerSe isEmptyOrNil
- ifTrue: [ '·' ]
- ifFalse: [ self authorInitialsPerSe ].
- stream
- space ;
- nextPutAll: Date today mmddyyyy ;
- space.
- (String streamContents:
- [ : s |
- Time now
- print24: true
- on: s ])
- copyFrom: 1
- to: 5 ]!

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

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

Item was changed:
  ----- Method: Utilities class>>setAuthorName (in category 'identification') -----
  setAuthorName
+
+ Author requestAndSetUsername!
- AuthorName := UIManager default
- request: 'Please type your name:' translated
- initialAnswer: 'Your Name' translated!