[mcclim-cvs] CVS update: mcclim/panes.lisp

[Gilbert Baumann]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv4133

Modified Files:
	panes.lisp 
Log Message:
TABLE-PANE
    As for HBOX and friends, children are now aligned according to
    their align options.


Date: Mon Nov 28 16:22:07 2005
Author: gbaumann

Index: mcclim/panes.lisp
diff -u mcclim/panes.lisp:1.158 mcclim/panes.lisp:1.159
--- mcclim/panes.lisp:1.158	Mon Nov 28 16:17:28 2005
+++ mcclim/panes.lisp	Mon Nov 28 16:22:06 2005
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.158 2005/11/28 15:17:28 gbaumann Exp $
+;;; $Id: panes.lisp,v 1.159 2005/11/28 15:22:06 gbaumann Exp $
 
 (in-package :clim-internals)
 
@@ -1566,8 +1566,8 @@
                    for j from 0
                    do (let ((child (aref array i j)))
                         (layout-child child
-                                      (pane-align-x pane)
-                                      (pane-align-y pane)
+                                      (pane-align-x child)
+                                      (pane-align-y child)
                                       x y w h))))))))
 
 (defun table-pane-p (pane)