Wish for OLEAutomationObject

[marten]

Could we change the method

OLEAutomationObject>>smalltalkObject: anObject intoVariant: variant
....
class == self class
ifTrue: [variant vt: VtDispatch; pdispVal: anObject objIDispatch. ^variant].
....

to


....
anObject isOleAutomationObject
ifTrue: [variant vt: VtDispatch; pdispVal: anObject objIDispatch. ^variant].
....

where "isOLEAutomationObject" is a newly method. The original method makes it pretty difficult to subclass OLEAutomationObject.

[wembley]

Case 31784 open for this request. It will very linely make it into 7.5.3.