mcclim-cvs October 2009

mcclim-cvs@common-lisp.net

2 participants
2 discussions

[mcclim-cvs] CVS mcclim
by ahefner 29 Oct '09

29 Oct '09

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 ,@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

1 0

[mcclim-cvs] CVS mcclim
by rstrandh 16 Oct '09

16 Oct '09

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

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs October 2009