[mcclim-cvs] CVS mcclim

[ahefner]

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))))