[Pkg] Monticello Public: PackageInfo-Base-mtf.70.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of PackageInfo-Base was added to project Monticello Public:
http://www.squeaksource.com/mc/PackageInfo-Base-mtf.70.mcz

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

Name: PackageInfo-Base-mtf.70
Author: mtf
Time: 22 February 2009, 11:22:52 pm
UUID: d9c984c6-661c-4e82-9e88-1cbb365b12fc
Ancestors: PackageInfo-Base-kph.69

no more underscore assignments

=============== Diff against PackageInfo-Base-kph.69 ===============

Item was changed:
  ----- Method: PackageInfo>>allMethodsForAuthor: (in category 'testing') -----
  allMethodsForAuthor: anAuthorInitials
  
  	"Browse uncommented methods whose initials (in the time-stamp, as logged to disk) match the given initials.  Present them in chronological order.  CAUTION: It will take several minutes for this to complete."
  	"Time millisecondsToRun: [SystemNavigation default browseUncommentedMethodsWithInitials: 'jm']"
  
  	| initials timeStamp methodReferences cm classes targetInitials |
+ 	methodReferences := OrderedCollection new.
- 	methodReferences _ OrderedCollection new.
  	classes
  		do: [:aClass | aClass selectors do: [:sel |
+ 			cm := aClass compiledMethodAt: sel.
+ 			timeStamp := Utilities timeStampForMethod: cm.
- 			cm _ aClass compiledMethodAt: sel.
- 			timeStamp _ Utilities timeStampForMethod: cm.
  			timeStamp isEmpty ifFalse:
+ 				[initials := timeStamp substrings first.
- 				[initials _ timeStamp substrings first.
  				initials first isDigit ifFalse:
  					[(initials = targetInitials)
  						ifTrue:
  							[methodReferences add: (MethodReference new
  								setStandardClass: aClass 
  								methodSymbol: sel)]]]]].
  
  	ToolSet
  		browseMessageSet: methodReferences 
  		name: 'Uncommented methods with initials ', targetInitials
  		autoSelect: nil		 !

Item was changed:
  ----- Method: PackageInfo>>methodsForAuthorInitials: (in category 'modifying') -----
  methodsForAuthorInitials: authorInitials
  
  	"
  	(PackageInfo named: 'Monticello.impl') methodsForAuthorInitials: 'test'.  
  	"
  
  	| initials timeStamp methodReferences aClass |
  	
+ 	methodReferences := OrderedCollection new.
- 	methodReferences _ OrderedCollection new.
  	
  	self classesDo: [:c | aClass := c ] methodsDo: [ :m | 
  	
  	
  
  			timeStamp := m timeStamp.
  			timeStamp isEmpty ifFalse:
  				[initials := timeStamp substrings first.
  				(initials = authorInitials)
  						ifTrue:
  							[ methodReferences add: m]]].
  	
  
  	^ methodReferences	!