[mcclim-devel] display glitch in interactor / accept

[Nikodemus Siivola]

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