:- pce_global(@edit_text_recogniser,
                          new(handler(keyboard,
                                                  message(@receiver,
                                                              typed,
                                                              @arg1)))).

text_make_editable(T) :-
        send(T, recogniser, @edit_text_recogniser).

This method uses the key_binding object called text from @key_bindings to map the typed keys on selectors and then invokes methods on class text. With the above, if the user types control-U to the text the following happens:

1. Event arrives at text and is given to text->typed using @edit_text_recogniser.
2. The event<-id is processed by the text key_binding object and mapped on the selector clear. text->clear does not require arguments and the key_binding object just invokes text->clear.
3. text->clear erases all characters from the text. Diagnostics: Fails if the keyboard event could not be handled.

   See also

   - text->show_caret
   - text->caret
   - text<-pointed
   - text.key_binding
   - text<-key_binding
   - class text_item
   - class text