!OBClassDefinition methodsFor: '*ob-shout' stamp: 'lr 9/24/2011 09:55'!
shoutAboutToStyle: aPluggableTextMorph
	aPluggableTextMorph styler classOrMetaClass: nil.
	^ true! !

!OBDefinition methodsFor: '*ob-shout' stamp: 'lr 9/24/2011 09:55'!
shoutAboutToStyle: aPluggableTextMorph
	^ false! !

!OBMethodDefinition methodsFor: '*ob-shout' stamp: 'lr 9/24/2011 09:55'!
shoutAboutToStyle: aPluggableTextMorph
	aPluggableTextMorph styler classOrMetaClass: theClass.
	^ true! !

!OBNode methodsFor: '*ob-shout' stamp: 'lr 9/24/2011 09:55'!
shoutAboutToStyle: aPluggableTextMorph
	^ false! !

!OBDefinitionPanel methodsFor: '*ob-shout' stamp: 'lr 9/24/2011 09:55'!
shoutAboutToStyle: aPluggableTextMorph
	^ self 
		withDefinitionDo: [ :def | def shoutAboutToStyle: aPluggableTextMorph ]
		ifNil: [ false ]! !