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

!BLOX.BLOXBrowser.ClassHierarchyBrowser methodsFor: 'class list blue button menu'!
blueButtonMenuForClasses: theView 
    "Install popup for class list popup"

    ^(PopupMenu new: theView label: 'Class') 
	selectors: #(#('File out...' #fileOutClass: #theView) #('Update' #updateClassList)
		     #() #('Compile' #compileClass: #theView) #('Compile all' #compileAll: #theView)
		     #('Accessors' #generateAccessors: #theView)
		     #() #('Bytecodes' #bytecodes: #theView) #('Hierarchy' #hierarchy: #theView)
		     #('Comment' #comment: #theView) #('References' #classRefs: #theView)
		     #() #('Add' #addClass: #theView) #('Rename...' #renameClass: #theView)
		     #('Remove...' #removeClass: #theView) #('Search...' #searchClass: #theView)
		     #() #(#'Inspect' #inspectClass: #theView))
	receiver: self
	argument: theView! !