Re: Input stream problem with CENTAUR 1.2

[fm@arthur.inria.fr (Francis Montagnac)]

In article <24481@sophia.inria.fr>, Guido.Bosch@loria.fr (Guido Bosch) writes:
|> Francis Montagnac writes:
|>  > 
|>  > In article <24366@sophia.inria.fr>, Guido.Bosch@loria.fr (Guido Bosch) writes:
|>  > |> ...
|>  > |> Now you will notice that the input is locked and no dialog window
|>  > |> appeares. Typing `<return>' in the shell buffer makes it appear, but
|>  > |> you still can't type any text in the dialog box. It seems that
|>  > |> CENTAUR's input stream remains in the shell buffer.
|>  > |> 
|>  > |> Could this be fixed easily?
|>  > 
|>  >     Yes, just add the following lelisp form in your .centaur (or .lelisp) file:
|>  > 
|>  > 	(setq #:system:line-mode-flag ())
|>  > 
|> 
|> Ok, this gets rid of the lock, but I still can't type text in a dialog
|> window. Another #:system:<magic-varable> ?
|> 

    Yes, you are right, it's not so easy.

    Try the following (unofficial) patch in your .centaur.  This fix
will be done in the next upcoming patch of centaur.  You will have then
to suppress this temporary one.

(when (typefn '{gfxobj}:simple-dialog:pop)
      (unless (typefn '#:user:pop)
	      (synonymq #:user:pop {gfxobj}:simple-dialog:pop))

      (defun {gfxobj}:simple-dialog:pop (dialog x y title default)
	(let ((#:system:real-terminal-flag t)
	      (#:tty:tyshowcursor t))
	     (#:user:pop dialog x y title default))))

-- 
Francis Montagnac, fm@mirsa.inria.fr, (33) 93 65 78 06, Fax:(33) 93 65 77 66
INRIA Sophia, 2004, rte des Lucioles, B.P.109 - 06561 Valbonne Cedex, FRANCE