[squeak-dev] The Inbox: System-ar.329.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat May 8 04:21:00 UTC 2010
A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ar.329.mcz
==================== Summary ====================
Name: System-ar.329
Author: Andreas Raab
Time: 7 May 2010, 9:20:09.55 pm
UUID: 8d1871a4-662d-c64a-a225-27e313977dab
Ancestors: System-ar.328
Experimental: Derive the authorInitials directly from the authorName so that we have both initials as well as name for a change. Both can be useful - for example Monticello should use initials to disambiguate file names but should include the full author name in the ancestry.
=============== Diff against System-ar.328 ===============
Item was changed:
----- Method: Utilities class>>setAuthorInitials (in category 'identification') -----
setAuthorInitials
+ "Deprecated. Please ask for the author's name since the initials will be derived."
- "Put up a dialog allowing the user to specify the author's initials. "
+ self setAuthorName.
+ !
- self setAuthorInitials:
- (UIManager default request: 'Please type your initials: ' translated
- initialAnswer: AuthorInitials)!
Item was changed:
----- Method: Utilities class>>authorNamePerSe (in category 'identification') -----
authorNamePerSe
+ "Answer the currently-prevailing author name, such as they, empty or not"
^ AuthorName!
Item was changed:
----- Method: Utilities class>>authorInitials (in category 'identification') -----
authorInitials
"Answer the initials to be used to identify the current code author. "
+ [(self authorInitialsFrom: self authorName) ifNotEmpty:[:initials| ^initials]] repeat.!
- [AuthorInitials isEmpty] whileTrue: [self setAuthorInitials].
- ^ AuthorInitials!
Item was added:
+ ----- Method: Utilities class>>authorInitialsFrom: (in category 'identification') -----
+ authorInitialsFrom: aString
+ "Answer the initials derived from the given name string.
+ Respects initials, for example:
+ Utilities authorInitialsFrom: 'Joe Sixpack'.
+ Utilities authorInitialsFrom: 'Joe Bernard Sixpack'.
+ Utilities authorInitialsFrom: 'Joe B. Sixpack'.
+ "
+ | tokens |
+ tokens := aString findTokens:' .'.
+ tokens size > 1 ifTrue:[
+ ^tokens inject: '' into:[:string :n| string, n first asLowercase]
+ ].
+ "Otherwise just return aString"
+ ^aString!
Item was changed:
----- Method: Utilities class>>authorName (in category 'identification') -----
authorName
+ "Answer the name of the current code author."
+
AuthorName ifEmpty: [self setAuthorName].
^ AuthorName!
Item was changed:
----- Method: Utilities class>>setAuthorName (in category 'identification') -----
setAuthorName
+ "Put up a dialog allowing the user to specify the author's name. "
+
AuthorName := UIManager default
request: 'Please type your name:' translated
+ initialAnswer: 'Your Name' translated.
+ !
- initialAnswer: 'Your Name' translated!
Item was changed:
----- Method: Utilities class>>setAuthorInitials: (in category 'identification') -----
setAuthorInitials: aString
+ "Deprecated."
+ ^self authorName: aString!
-
- AuthorInitials := aString.
-
- "Case of being reset due to, eg, copy of image."
- aString isEmpty ifTrue: [AuthorName := '']!
Item was changed:
Object subclass: #Utilities
instanceVariableNames: ''
+ classVariableNames: 'AuthorName 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>>authorName: (in category 'identification') -----
authorName: aString
+ "Answer the name of the current code author."
+
AuthorName := aString!
Item was changed:
----- Method: Utilities class>>authorInitialsPerSe (in category 'identification') -----
authorInitialsPerSe
"Answer the currently-prevailing author initials, such as they, empty or not"
+ ^AuthorName isEmptyOrNil ifTrue:[AuthorName] ifFalse:[self authorInitials]!
- ^ AuthorInitials!
More information about the Squeak-dev
mailing list
|