[mcclim-cvs] CVS mcclim

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

Modified Files: dialog.lisp Log Message: Center the label with the text field, since s-o-w-b scrambles the notion of the baseline.

--- /project/mcclim/cvsroot/mcclim/dialog.lisp 2008/12/06 14:56:41 1.30 +++ /project/mcclim/cvsroot/mcclim/dialog.lisp 2008/12/07 03:22:54 1.31 @@ -339,7 +339,7 @@ (let ((query-record nil)) (if align (formatting-row (stream) - (formatting-cell (stream :align-x align) + (formatting-cell (stream :align-x align :align-y :center) (do-prompt)) (formatting-cell (stream) (setq query-record (do-accept-present-default))))