[mcclim-cvs] CVS mcclim

[thenriksen]

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+