Fw: EXT :Re: List element tooltips

I'm using VW 7.6, with HoverHelp, and trying to implement tooltips for individual elements of a SelectionView, starting with a data set. First, I provide a way for the view to cache the index of the item under the mouse:

    SelectionView>>setTooltipIndex: anInteger
        self propertyAt: #tooltipIndex put: anInteger

    SelectionView>>tooltipIndex
        ^self propertyAt: #tooltipIndex

Next I add a method to the controller (again, starting with data sets - similar behavior would need to be added to controllers for lists or other types of sequence views) to set that index in its view:

    DataSetController>>setTooltipIndexFor: event
        self view setTooltipIndex: (self findElementFor: self sensor cursorPoint)

And add an override to ensure the index gets set when the mouse moves:

    DataSetController>>mouseMovedEvent: event
        | point |
        self setTooltipIndexFor: event.
        ...

Now my application can set the tooltip on the dataset in postBuildWith:
    ...
    (self widgetAt: #myDataSet) tooltip: [self dataSetTooltip]

And the tooltip code itself can find the element under the mouse:
    dataSetTooltip
        | index |
        index := (self widgetAt: #myDataSet) tooltipIndex.
        ^index = 0
            ifTrue: ['']
            ifFalse: [(self listHolder value at: index) tooltipText]

Now, if the mouse enters the dataSet widget from the side, the tooltip shows for the element under the mouse. But when I move the mouse up/down the dataSet, the tooltip window doesn't change. So I figure I need to tickle the TooltipAssistant state machine. My first thought was to extend #setTooltipIndex: a bit more:

    SelectionView>>setTooltipIndex: anInteger
        anInteger = self tooltipIndex ifTrue: [^self].
        self propertyAt: #tooltipIndex put: anInteger.
        self announceFrameExited.
        self announceFrameEntered

But this didn't quite do the trick. Any ideas?

Dave Stevenson
[hidden email]