Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv9667

Modified Files: dialog.lisp Log Message: Now `*use-goatee*' also affects calls to `accept' within `accepting-values'.

--- /project/mcclim/cvsroot/mcclim/dialog.lisp 2006/11/08 01:18:22 1.23 +++ /project/mcclim/cvsroot/mcclim/dialog.lisp 2006/12/13 15:31:07 1.24 @@ -449,7 +449,9 @@ (surrounding-output-with-border (stream :shape :inset :move-cursor t) (setq editing-stream - (make-instance 'standard-input-editing-stream + (make-instance (if *use-goatee* + 'goatee-input-editing-stream + 'standard-input-editing-stream) :stream stream :cursor-visibility nil :background-ink +grey90+