Re: Making the program inject characters into the listener

On 28/03/2014 00:34, Eric Smith wrote:

In LWW 4.3.6 I can enter a character into the listener, to have it processed as if entered from the keyboard, like this:

(editor::process-character #\X editor::*e-current-window*)

In LWW 6.1, I need to do it differently, because *e-current-window* has the wrong window.

What's the canonical way to do it, to work with all versions of Lispworks? Or at least to make it work with 6.1.

Note that this is different than simply displaying characters in the listener. I want the listener to act on the characters, exactly as if they came from the keyboard, not just display a readable representation of them. For example, a backspace is displayed as ^H to be readable, but if the listener acted on it, it would delete the previous character from the display, instead of displaying ^H.

You need to call editor:process-character in the editor window's process (i.e. the CAPI process, not the execution listener's).

EDITOR 27 > w
#<WM-WINDOW "CAPI interactive-pane 2" 217D54AB>

EDITOR 28 > EDITOR 28 > (loop for z across "abc^Hd" do (process-character z w))

Error: Setting current window for the wrong process CAPI Execution Listener 1 : #<WM-WINDOW "CAPI interactive-pane 2" 217D54AB>.
1 (abort) Return to level 0.
2 Return to top loop level 0.

Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.

EDITOR 29 : 1 >

EDITOR 30 > (capi:apply-in-pane-process
             (slot-value w 'text-pane)
             (lambda ()
               (loop for z across "abc^Hd" do (process-character z w))))
NIL

EDITOR 31 > abd

- nick