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

!OBDefinition methodsFor: '*ob-shout' stamp: 'lr 9/23/2011 20:25'!
shoutAboutToStyle: aPluggableShoutMorph
	^ false! !

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

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

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