[squeak-dev] The Trunk: System-cmm.294.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 15 23:59:50 UTC 2010


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, '"']!




More information about the Squeak-dev mailing list