[mcclim-cvs] CVS mcclim

[rstrandh]

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