On 1 May 2011 21:38, Stéphane Ducasse <[email protected]> wrote:
> this is strange
>
> I was trying to code a simple list of method browser and my browser seems to
>
> MorphExtension>>valueOfProperty: aSymbol
> "answer the value of the receiver's property named aSymbol"
> ^ extension ifNotNil: [extension valueOfProperty: aSymbol]
>
hmm.. i have different implementation here:
valueOfProperty: aSymbol
"answer the value of the receiver's property named aSymbol"
^ self
valueOfProperty: aSymbol
ifAbsent: []
and there is no 'extension' ivar in MorphExtension class.
Or you changed something there?
> I end up in a endless loop
>
> update: aParameter
>
> |state|
> aParameter ifNil: [^self].
> getLabelSelector ifNotNil: [
> aParameter == getLabelSelector ifTrue: [
> (self labelMorph respondsTo: #font)
> ifTrue: [self label: (model perform:
> getLabelSelector) font: self labelMorph font]
> ifFalse: [self label: (model perform:
> getLabelSelector)]]].
> state := self getModelState.
> (state ~= (self valueOfProperty: #lastState) or: [
> ^^^
>
> when I inspect self I get a PluggableButtonMorph
> but the method shown in the debugger is MoprhExtension??????
>
> getStateSelector isNil and: [aParameter == #onOffColor]])
> ifTrue: [self color: self colorToUse.
> self setProperty: #lastState toValue: state].
> aParameter == getEnabledSelector ifTrue: [^self enabled: (model
> perform: getEnabledSelector)].
> getColorSelector ifNotNil: [ | cc |
> color = (cc := model perform: getColorSelector)
> ifFalse: [
> color := cc.
> self onColor: color offColor: color.
> self changed ]].
>
--
Best regards,
Igor Stasenko AKA sig.
