'From Squeak6.0alpha of 6 April 2020 [latest update: #19561] on 7 April 2020 at 7:53:48 pm'!

!StandardToolSet class methodsFor: 'browsing' stamp: 'ct 4/7/2020 19:53'!
browseMethod: aCompiledMethod
	"Browse aCompiledMethod on the most convenient possible way, using a System Browser, a Versions Browser, or an Inspector."

	aCompiledMethod isInstalled
		ifTrue: [^ self browse: aCompiledMethod methodClass selector: aCompiledMethod selector].
	(aCompiledMethod methodClass changeRecordsAt: aCompiledMethod selector)
		ifNotNil: [^ self browseMethodVersion: aCompiledMethod].
	^ self inspect: aCompiledMethod! !


!ToolSet class methodsFor: 'browsing' stamp: 'ct 4/7/2020 19:52'!
browseMethod: aCompiledMethod
	
	self default ifNil: [^ self inform: 'Cannot open Browser'].
	^ self default browseMethod: aCompiledMethod! !

