'From Cuis 2.6 of 10 August 2010 [latest update: #540] on 16 August 2010 at 2:48:03 pm'!

!HierarchyBrowser class methodsFor: 'as yet unclassified' stamp: 'jmv 8/16/2010 14:46'!
newFor: aClass
	"Open a new HierarchyBrowser on the given class"
	|  newBrowser |
	newBrowser _ HierarchyBrowser new initHierarchyForClass: aClass.
	Browser openBrowserView: (newBrowser openSystemCatEditString: nil)
		label: newBrowser labelString.
	newBrowser assureSelectionsShow

"HierarchyBrowser newFor: Boolean"! !

