On 1 May 2011 22:16, Stéphane Ducasse <[email protected]> wrote: > > On May 1, 2011, at 11:06 PM, Igor Stasenko wrote: > >> 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? > > > Not that I know. > I was just in plain 13380 >
[OT].. wow.. my image is already 300 updates behind.. What the ...! 300 updates. I mean 300. updates!!! And that is in scope of 1.3 development. :))) > >> >>> 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. > > > -- Best regards, Igor Stasenko AKA sig.
