From rstrandh at common-lisp.net Fri Oct 16 04:57:00 2009 From: rstrandh at common-lisp.net (rstrandh) Date: Fri, 16 Oct 2009 00:57:00 -0400 Subject: [mcclim-cvs] CVS mcclim Message-ID: 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 From ahefner at common-lisp.net Thu Oct 29 14:05:05 2009 From: ahefner at common-lisp.net (ahefner) Date: Thu, 29 Oct 2009 10:05:05 -0400 Subject: [mcclim-cvs] CVS mcclim Message-ID: Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv20633 Modified Files: gadgets.lisp Log Message: Fix dynamic extent declarations in with-output-as-gadget. --- /project/mcclim/cvsroot/mcclim/gadgets.lisp 2008/11/09 19:49:17 1.112 +++ /project/mcclim/cvsroot/mcclim/gadgets.lisp 2009/10/29 14:05:04 1.113 @@ -2678,8 +2678,8 @@ (gadget-output-record-constructor () (make-instance 'gadget-output-record , at options :x ,x :y ,y))) - (declare (dynamic-extent with-output-as-gadget-continuation - gadget-output-record-constructor)) + (declare (dynamic-extent #'with-output-as-gadget-continuation + #'gadget-output-record-constructor)) (let ((,gadget-output-record (invoke-with-output-to-output-record ,stream