!OBClassDefinition methodsFor: '*ob-shout' stamp: 'lr 9/23/2011 20:00'!
shouldBeStyledBy: aPluggableShoutMorph
	aPluggableShoutMorph styler classOrMetaClass: nil.
	^ true! !

!OBDefinition methodsFor: '*ob-shout' stamp: 'lr 1/28/2010 15:29'!
shouldBeStyledBy: aPluggableShoutMorph
	^ false! !

!OBMethodDefinition methodsFor: '*ob-shout' stamp: 'lr 9/23/2011 20:00'!
shouldBeStyledBy: aPluggableShoutMorph
	aPluggableShoutMorph styler classOrMetaClass: theClass.
	^ true! !

!OBNode methodsFor: '*ob-shout' stamp: 'lr 9/23/2011 20:17'!
shouldBeStyledBy: aPluggableShoutMorph
	^ false! !

!OBDefinitionPanel methodsFor: '*ob-shout' stamp: 'dc 8/24/2007 12:34'!
addItem: classAndMethod
	"Used by the system when the user clicks on a link in a class comment. For example see class comment of SystemProgressMorph and click on displayProgressAt:from:to:during:."
	|tokens class methodNode|
	tokens := classAndMethod findTokens: Character space.
	tokens size ~= 2 ifTrue: [^ self].
	class := Smalltalk classNamed: tokens first.
	class ifNil: [^ self].
	methodNode := OBMethodNode on: tokens second inClass: class.
	methodNode browse! !

!OBDefinitionPanel methodsFor: '*ob-shout' stamp: 'lr 9/23/2011 20:07'!
shoutAboutToStyle: aPluggableShoutMorph
	^ self 
		withDefinitionDo: [ :def | def shouldBeStyledBy: aPluggableShoutMorph ]
		ifNil: [ false ]! !