'From Squeak3.4 of 1 March 2003 [latest update: #5170] on 9 March 2003 at 11:01:59 pm'!

!Browser class methodsFor: 'instance creation' stamp: 'dew 3/9/2003 23:01'!
fullOnClass: aClass selector: aSelector 
	"Open a new full browser set to class."
	| brow classToUse |
	Preferences browseFullOpensWhisker ifTrue:
		[^ (aSelector = #Definition or: [aSelector = #Comment])
			ifTrue: [WhiskerBrowser openExistingBrowserOnClass: aClass]
			ifFalse: [WhiskerBrowser openExistingBrowserOnClass: aClass selector: aSelector]].
	classToUse _ Preferences browseToolClass.
	brow _ classToUse new.
	brow setClass: aClass selector: aSelector.
	classToUse
		openBrowserView: (brow openEditString: nil)
		label: brow labelString! !