'From Pharo1.4a of ''16 June 2011'' [Latest update: #14283] on 16 January 2012 at 4:10:27 pm'!

!PluggableListMorph methodsFor: 'background coloring' stamp: 'GuillermoPolito 1/16/2012 16:09'!
backgroundColorFor: aRow

	| anItem return |
	aRow ifNil: [ ^ false ].
	anItem := self getList at: aRow ifAbsent: [ ^ nil ].

	self backgroundColoringBlockOrSelector
		ifNotNil: [:blockOrSelector |
			return := blockOrSelector isBlock
				ifTrue: [ blockOrSelector cull: anItem cull: aRow ]
				ifFalse: [
					blockOrSelector isSymbol
						ifTrue: [ blockOrSelector numArgs == 0
									ifTrue: [ anItem perform: blockOrSelector ]
									ifFalse: [ self model perform: blockOrSelector withEnoughArguments: { anItem. (list indexOf: anItem)} ]]
						ifFalse: [ nil ]]].
		
		^ return isColor
			ifTrue: [ return ]
			ifFalse: [ nil ]! !

!PluggableListMorph methodsFor: 'separator' stamp: 'GuillermoPolito 1/16/2012 16:09'!
separatorAfterARow: aRow

	| anItem |
	aRow ifNil: [ ^ false ].
	anItem := self getList at: aRow ifAbsent: [ ^ false ].

	self separatorBlockOrSelector
		ifNotNil: [:blockOrSelector | 
			^ blockOrSelector isBlock
				ifTrue: [ blockOrSelector cull: anItem cull: aRow ]
				ifFalse: [
					blockOrSelector isSymbol
						ifTrue: [ blockOrSelector numArgs == 0
									ifTrue: [ anItem perform: blockOrSelector ]
									ifFalse: [ self model perform: blockOrSelector withEnoughArguments: { anItem. (list indexOf: anItem)} ]]
						ifFalse: [ false ]]].
	
	^ false! !