Simulate a user typing a string

[tinchodias]

I failed on my first attempt to do it:

tf := ToTextField new.
s := tf inSpace.
s show.

"now, manually click on the text field"

"now, try to simulate typing:"

"aString := 'hello'."
aString := 'h'.

events := Array streamContents: [ :stream |

    aString do: [ :each |
        | key|
        key := KeyboardKey fromCharacter: each.
        stream
            nextPut:
                ((BlKeyDownEvent target: tf)
                    key: key;
                    timestamp: s time now;
                    yourself);
            nextPut:
                ((BlKeyUpEvent target: tf)
                    key: key;
                    timestamp: s time now;
                    yourself) ] ].

events do: [ :event | s dispatchEvent: event ].

[tinchodias]

This does work:

tf := ToTextField new.
s := tf inSpace.
s show.

tf requestFocus.
BlSpace
    simulateEvent: (BlTextInputEvent new
        text: '1234';
        yourself)
    on: tf.

(inspired on BlDevScripterTypeTextStep>>#playOn:)

I keep this question open:

should we add a method to BlSpace as there is for click (BlSpace class>>#simulateClickOn:)?