Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv15495

Modified Files: dialog.lisp Log Message: Fixed problem with Cancel button in accepting-values.

Thanks to Kilian Sprotte for the patch.

--- /project/mcclim/cvsroot/mcclim/dialog.lisp 2009/08/01 22:17:02 1.32 +++ /project/mcclim/cvsroot/mcclim/dialog.lisp 2009/10/16 04:57:00 1.33 @@ -271,12 +271,11 @@ (format stream "OK")))) (formatting-cell (stream) (with-output-as-presentation - (stream nil 'abort-button) (with-output-as-presentation - (stream nil 'exit-button) + (stream nil 'abort-button) (surrounding-output-with-border - (stream :shape :rounded :radius 6 - :background +gray80+ :highlight-background +gray90+) - (format stream "Cancel"))))))) + (stream :shape :rounded :radius 6 + :background +gray80+ :highlight-background +gray90+) + (format stream "Cancel")))))) (terpri stream)))

(defmethod stream-accept ((stream accepting-values-stream) type