| text |

[
    EpMonitor current disable.
    Metacello new
        baseline: 'Bloc';
        repository: 'github://feenkcom/Bloc/src';
        load: 'Bloc-Text-Rope'
] ensure: [ EpMonitor current enable ].

text := 'test test test' asRopedText.
text
        when: BlTextStringInserted
        do: [ Transcript clear;
                         show: text asString ];
        insertText: 'foo ' asRopedText at: 5