The Trunk: System-cmm.294.mcz

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.294.mcz

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

Name: System-cmm.294
Author: cmm
Time: 15 March 2010, 6:58:42.937 pm
UUID: 5095ff47-64f2-4ebd-8689-6d32ac6cf452
Ancestors: System-ul.293, System-MAD.293

- Integrated new ListChooser from Michael Davies.
- More improved guads of authorInitialsPerSe.

=============== Diff against System-ul.293 ===============

Item was changed:
  ----- Method: Utilities class>>changeStampPerSe (in category 'identification') -----
  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 ]!
-
- ^ (self authorInitialsPerSe ifNil: ['·']) , ' ' , Date today mmddyyyy, ' ',
- ((String streamContents: [:s | Time now print24: true on: s]) copyFrom: 1 to: 5)!

Item was changed:
  ----- Method: ChangeSet>>checkForAnyAlienAuthorship (in category 'fileIn/Out') -----
  checkForAnyAlienAuthorship
  "Check to see if there are any versions of any methods in the receiver that have author initials other than that of the current author, and open a browser on all found"
-
  | aList initials |
+ (initials := Utilities authorInitials) isEmptyOrNil ifTrue: [ ^self inform: 'No author initials set in this image' ].
- (initials := Utilities authorInitialsPerSe) ifNil: [^ self inform: 'No author initials set in this image'].
  (aList := self methodsWithAnyInitialsOtherThan: initials) size > 0
- ifFalse: [^ self inform: 'All versions of all methods in "', self name, '"
- have authoring stamps which start with "', initials, '"']
  ifTrue:
+ [ self systemNavigation
+ browseMessageList: aList
+ name: 'methods in "' , self name , '" with any authoring stamps not starting with "' , initials , '"' ]
+ ifFalse: [ ^self inform: 'All versions of all methods in "' , self name , '"
+ have authoring stamps which start with "' , initials , '"' ]!
- [self systemNavigation  browseMessageList: aList name: 'methods in "', self name, '" with any authoring stamps not starting with "', initials, '"']!

Item was added:
+ ----- Method: ColorTheme>>disabledColor (in category 'theme') -----
+ disabledColor
+ ^ Color lightGray!

Item was changed:
  ----- Method: ChangeSet>>checkForAlienAuthorship (in category 'fileIn/Out') -----
  checkForAlienAuthorship
  "Check to see if there are any methods in the receiver that have author initials other than that of the current author, and open a browser on all found"
-
  | aList initials |
+ (initials := Utilities authorInitials) isEmptyOrNil ifTrue: [ ^self inform: 'No author initials set in this image' ].
- (initials := Utilities authorInitialsPerSe) ifNil: [^ self inform: 'No author initials set in this image'].
  (aList := self methodsWithInitialsOtherThan: initials) size > 0
- ifFalse:
- [^ self inform: 'All methods in "', self name, '"
- have authoring stamps which start with "', initials, '"']
  ifTrue:
+ [ self systemNavigation
+ browseMessageList: aList
+ name: 'methods in "' , self name , '" whose authoring stamps do not start with "' , initials , '"' ]
+ ifFalse: [ ^self inform: 'All methods in "' , self name , '"
+ have authoring stamps which start with "' , initials , '"' ]!
- [self systemNavigation  browseMessageList: aList name: 'methods in "', self name, '" whose authoring stamps do not start with "', initials, '"']!