Bloc's Rope data structure usage

blocRope.st

| 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