"Filed out from GNU Smalltalk version 2.0k on 10-Mar-2003  21:06:59"!

!BLOX.BLOXBrowser.ClassHierarchyBrowser methodsFor: 'class list blue button menu'!
generateAccessors: listView
    curClass isNil ifTrue: [ ^ listView beep ].
    curClass createGetAndSetMethods.
    "Record state change"
    self
	changeState: #methods;
	changeState: #text.
    Primitive updateViews! !