[Pharo-dev] Logic we will have to clean

[stepharo]

patchworkUIThemeColorFor: aWindowOrModel
    "Answer the colour for the given window."
    ^ aWindowOrModel ifNotNil: [
        (aWindowOrModel respondsTo: #patchworkUIThemeColor)
        ifTrue: [aWindowOrModel patchworkUIThemeColor]
        ifFalse: [(aWindowOrModel class respondsTo: 
#patchworkUIThemeColor)
            ifTrue: [aWindowOrModel class patchworkUIThemeColor]
            ifFalse: [self settings windowColor]]]

windowColorFor: aWindowOrModel
    "Answer the colour for the given window."
    | c |
    ^ self settings standardColorsOnly
        ifTrue: [self settings windowColor]
        ifFalse: [c := aWindowOrModel isMorphicModel
                        ifTrue: [self patchworkUIThemeColorFor: 
aWindowOrModel model].
            c
                ifNil: [(self patchworkUIThemeColorFor: aWindowOrModel)
                        ifNil: [self settings windowColor]]]