The glitch is visible in the screenshot:

http://random-state.net/tmp/display-glitch-in-accept.png

(see the vertical bar before xyz.)

To reproduce, load the following code, and type "Test<enter>xyz" in the interactor. This is using Christophe's CLX from darcs, and CVS McCLIM, on:

Darwin manic.local 8.11.1 Darwin Kernel Version 8.11.1: Wed Oct 10 18:23:28 PDT 2007; root:xnu-792.25.20~1/RELEASE_I386 i386 i386

and SBCL 1.0.13.45.

Cheers,

-- Nikodemus

(require :mcclim)

(defpackage "TEST-GUI" (:use "CLIM-LISP" "CLIM"))

(in-package "TEST-GUI")

(define-application-frame test-frame () () (:panes (canvas :application :display-time nil :height 400 :width 600) (repl :interactor)) (:layouts (default (vertically (:width 600 :height 600) canvas (:fill repl)))))

(defmethod frame-standard-output ((frame test-frame)) (find-pane-named frame 'repl))

(define-test-frame-command (com-test :name t) () (let ((name (accept 'string :prompt "Foo"))) (format t "Foo ~A!" name)))

(run-frame-top-level (make-application-frame 'test-frame))Te