A new version of ConfigBrowser was added to project The Inbox:
http://source.squeak.org/inbox/ConfigBrowser-ar.2.mcz

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

Name: ConfigBrowser-ar.2
Author: ar
Time: 19 May 2010, 11:35:28.93 pm
UUID: e3fdefc6-a611-e440-ad1a-050e8babb7a8
Ancestors: ConfigBrowser-ar.1

Per request, no versions. But do list author if available.

=============== Diff against ConfigBrowser-ar.1 ===============

Item was added:
+ ----- Method: ConfigProxy>>author (in category 'accessing') -----
+ author
+ 	^author!

Item was added:
+ ----- Method: ConfigClass>>author (in category 'accessing') -----
+ author
+ 	self versions do:[:v| v author ifNotNil:[:a| ^a]].
+ 	^nil!

Item was changed:
  Object subclass: #ConfigProxy
+ 	instanceVariableNames: 'blessing author targets description'
- 	instanceVariableNames: 'blessing targets description'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ConfigBrowser-UI'!

Item was added:
+ ----- Method: ConfigClass>>authorFor: (in category 'accessing') -----
+ authorFor: selector
+ 	| proxy |
+ 	proxy := ConfigProxy new.
+ 	item new perform: selector with: proxy.
+ 	^proxy author!

Item was changed:
  ----- Method: ConfigClass>>items (in category 'accessing') -----
  items
  	"Collect the available versions in the configuration"
+ 	true ifTrue:[^#()].
+ 	^self versions!
- 
- 	| versions |
- 	versions := Array streamContents:[:s|
- 		Pragma withPragmasIn: item do:[:pragma|
- 			(pragma keyword == #version: 
- 				or:[pragma keyword == #version:imports:])
- 					ifTrue:[s nextPut: pragma selector -> pragma arguments first]]].
- 	versions := versions select:[:assoc| self isBlessingAcceptableIn: assoc key].
- 	^versions collect:[:each| 
- 		(ConfigVersion on: each value in: self) selector: each key
- 	].!

Item was changed:
  ----- Method: ConfigClass>>description (in category 'accessing') -----
  description
  
  	^Text streamContents:[:s|
  		s nextPutAll:'Name: ' asText allBold.
  		s nextPutAll: self name.
+ 		s cr; nextPutAll:'Author: ' asText allBold.
+ 		s nextPutAll: (self author ifNil:['Unknown']).
+ 
+ "		s cr; nextPutAll:'Versions: ' asText allBold.
+ 		self items do:[:each| s nextPutAll: each name] separatedBy:[s nextPutAll: ', ']."
- 		s cr; nextPutAll:'Versions: ' asText allBold.
- 		self items do:[:each| s nextPutAll: each name] separatedBy:[s nextPutAll: ', '].
  		s cr; nextPutAll: 'Description: ' asText allBold.
  		item hasComment ifTrue:[s cr; cr; nextPutAll: item comment].
  	]!

Item was added:
+ ----- Method: ConfigVersion>>author (in category 'accessing') -----
+ author
+ 	^parent authorFor: selector!

Item was changed:
  ----- Method: ConfigProxy>>author: (in category 'api') -----
  author: aString
  	"Author name"
+ 	author := aString.
  
  !

Item was added:
+ ----- Method: ConfigClass>>versions (in category 'accessing') -----
+ versions
+ 	"The actual versions"
+ 
+ 	| versions |
+ 	versions := Array streamContents:[:s|
+ 		Pragma withPragmasIn: item do:[:pragma|
+ 			(pragma keyword == #version: 
+ 				or:[pragma keyword == #version:imports:])
+ 					ifTrue:[s nextPut: pragma selector -> pragma arguments first]]].
+ 	versions := versions select:[:assoc| self isBlessingAcceptableIn: assoc key].
+ 	^versions collect:[:each| 
+ 		(ConfigVersion on: each value in: self) selector: each key
+ 	].!