[Pharo-users] Spec: Capturing changes in a text morph

[Offray Vladimir Luna Cárdenas]

Hi,

I'm migrating my grafoscopio interface from I'm trying to capture some 
changes in a text morph that is part of a Spec interface. The interface 
is split in 4 parts, as you can see at [a]: (1) a main menu, (2) a tree, 
(3) a node header input text and (4) a text morph. When you click any 
node on the tree (2) the name of the node, called the header is shown in 
(3) and the node contents, called the body are shown at (4). If you made 
a change in the header (pressing enter) it's reflected back to the main 
tree. And the node's body is changed for a text morph [b] or a and 
embedded playground [c] according to tags in the node. So the reading 
part is working and I have some partial support for persistence, at 
least for node headers.

[a] https://offray.withknown.com/2016/grafoscopio-notebook-interface
[b] https://offray.withknown.com/2016/grafoscopio-text-node
[c] https://offray.withknown.com/2016/grafoscopio-code-node

Now I would like to extend the persistence for node's body content, so 
when any changes happens in the (4) panel, be it a text panel or a 
playground, it is stored in a similar way to what is happening with node 
headers and the (3) panel, but I'm unsuccessful trying to capture those 
changes.

My initializeWidgets and initializePresenter are implemented this way:

=================

GrafoscopioNotebook>>initializeWidgets

    windowMainMenu := self newWindowMainMenu.
    tree := TreeModel new.
    body := self newText.
    header := self newTextInput.

    body disable.
    body text: '<-- Select a node in the left panel'.

    tree
        childrenBlock: [:node | node children];
        displayBlock: [:node | node title ].

=================

initializePresenter

    tree whenSelectedItemsChanged: [ :arg |
        arg isEmpty ifFalse: [self changeBody: arg ]].
    header whenTextChanged: [ :arg |
        Transcript show: arg.
        (tree selectedItem content header) = arg
            ifFalse: [
                (tree selectedItem) content header: arg.
                tree roots: tree roots]].
    body whenTextIsAccepted: [ :arg |
        Transcript show: arg
        ]

=================

I'm capturing properly the changes in text with whenTextChanged on the 
header but using the same message on body or whenTextIsAccepted doesn't 
produce any change on the trascript, and of course I can't update the 
any tree/node contents properly.

Any advice on how to solve this will be greatly appreciated. If can 
happen soon in this week even better, because we could show this to our 
hackathon/workshop attendees.

Cheers,

Offray