[squeak-dev] The Inbox: System-cmm.498.mcz

Levente Uzonyi leves at elte.hu
Sun Sep 16 01:21:45 UTC 2012


On Sat, 15 Sep 2012, commits at source.squeak.org wrote:

> A new version of System was added to project The Inbox:
> http://source.squeak.org/inbox/System-cmm.498.mcz
>
> ==================== Summary ====================
>
> Name: System-cmm.498
> Author: cmm
> Time: 15 September 2012, 11:41:16.856 am
> UUID: 20beb771-7672-4ef2-a4cb-ef0d2c77ea53
> Ancestors: System-cmm.497
>
> - Limit initials to alphanumeric characters in ASCII range 32 to 128.
> - Fixed my initials on a couple of methods.
>
> =============== Diff against System-cmm.497 ===============
>
> Item was changed:
>  ----- Method: Author class>>fullNamePerSe (in category 'pharo compatibility') -----
>  fullNamePerSe
>  	^ self current initials!
>
> Item was changed:
>  ----- Method: Author>>changeStamp (in category 'accessing') -----
>  changeStamp
>  	^ self changeStampWithInitials: (self initials ifEmpty: [ 'unknown' ])!
>
> Item was changed:
>  ----- Method: Utilities class>>setAuthorInitials (in category 'identification') -----
>  setAuthorInitials
>  	"Put up a dialog allowing the user to specify the author's initials.  "
>  	| oldInitials |
>  	oldInitials := Author current initials.
>  	Author reset.

Using #reset will throw the username away if it was set.


Levente

>  	Author current initials:
>  		((UIManager default
>  			request: 'Please type your initials: ' translated
> + 			initialAnswer: oldInitials) select:
> + 			[ : each | #(#($A $Z ) #($a $z ) #($0 $9 ) ) anySatisfy:
> + 				[ : range | each
> + 					between: range first
> + 					and: range second ] ])!
> - 			initialAnswer: oldInitials) select: [ : each | each isOctetCharacter and: [ each isAlphaNumeric ] ])!
>
>
>


More information about the Squeak-dev mailing list