This is an option in the package browser -- look at the file-in below

!Browser methodsFor: 'class list' stamp: 'stp 02/09/2000 10:50'!
classListIndex: anInteger 
	"Set anInteger to be the index of the current class selection."

	| className |
	classListIndex _ anInteger.
	self setClassOrganizer.
	messageCategoryListIndex _ 0.
	messageListIndex _ 0.
	self classCommentIndicated
		ifTrue: []
		ifFalse: [editSelection _ anInteger = 0
					ifTrue: [metaClassIndicated | (systemCategoryListIndex == 0)
						ifTrue: [#none]
						ifFalse: [#newClass]]
					ifFalse: [#editComment]]. "Changed from editClass"
	contents _ nil.
	self selectedClass isNil
		ifFalse: [className _ self selectedClass name.
					(RecentClasses includes: className)
				ifTrue: [RecentClasses remove: className].
			RecentClasses addFirst: className.
			RecentClasses size > 16
				ifTrue: [RecentClasses removeLast]].
	self changed: #classSelectionChanged.
	self changed: #classListIndex.	"update my selection"
	self changed: #varsList.
	self changed: #messageCategoryList.
	self changed: #messageList.
	self changed: #contents! !


stp


Les Tyrrell wrote:
> 
> Alan Kay wrote:
> >
> > I think that class comments should come up automatically (perhaps in a
> > separate pane) when the class level is reached in the browser.

-- 
stp

Stephen Travis Pope
http://www.create.ucsb.edu/~stp