Hi,
I refactor a bit the code, to have a slightly
better behavior.
I send the #display: message at the time the list is installed in the notebook page:
newMethodsList ������ methods := self newNotebook. ������ methods ������ ������ addPage: self instanceMethodsTab; ������ ������ addPage: self classMethodsTab
instanceMethodsTab ������ ^ SpNotebookPage ������ ������ title: 'Methods' translated ������ ������ provider: [ self newList ������ ������ ������ display: [:aMethod | aMethod selector ]; ������ ������ ������ yourself]
classMethodsTab ������ ^ SpNotebookPage ������ ������ title: 'Script data' translated ������ ������ provider: [ self newList ������ ������ ������ display: [:aMethod | aMethod selector ]; ������ ������ ������ yourself]
Then I connect the presenters:
connectPresenters ������ scripts whenSelectedItemChanged: [ :class | ������ ������ methods resetAllPageContents. ������ ������ (methods pageAt: 1) whenRetrievedDo: [ :list�� |�� list�� items:�� class methods]. ������ ������ (methods pageAt: 2) whenRetrievedDo: [ :list�� | list�� items:�� class class methods]. ������ ������ methods selectPageIndex: 1. ������ ������ source������ ��clearContent ].
The behavior is mostly as expected, but when the
I click for the first time on a script at the left, the notebook
list in page 1 is not updated (empty):
Then when I click a second time on another script it is updated, then also in the first clicked script:
Any idea ?
I joined the complete class too.
Thanks. Keep safe.
Hilaire
-- Dr. Geo http://drgeo.eu