AbtVariable class>>abtPrimitiveEventForFeatureNamed:

[marten]

I think, that this class method may have a bug ?

Code: Select all

abtPrimitiveEventForFeatureNamed: aFeatureName
   | ans |
   ^(ans := super abtPrimitiveEventForFeatureNamed: aFeatureName) isNil
      ifTrue: [
         self featureEventClass new
            featureName: aFeatureName;
            eventName: #basicEvent;
            yourself]
      ifFalse: [ans]


The method "featureEventClass" is an instance based method - this method is called during debugging and is as old as from 1998 !

[wembley]

Marten -

You are correct -- it is broken. Case 47658 has been opened and the fix (copying the method to the class side of AbtVariable and updating the instance-side method to send self class featureEventClass ) will be in VA Smalltalk V8.0.3.

[wembley]

Marten -

I'm having a little trouble creating a simple example view that will hit this problem -- do you have one you could send me?

Thanks, John

[marten]

Marten -

I'm having a little trouble creating a simple example view that will hit this problem -- do you have one you could send me?

Thanks, John

Here is a simple example app ...

[wembley]

Marten -

Thank you for the testcase. What this testcase pointed out is that it is important which way you create the attribute-to-attribute connection. If the connection is made from the entry field to the variable, it always works; if it is made from the variable to the entry field, it fails without the fix -- of course I was making it the first way and that was the cause of my difficulty.