Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv12992 Modified Files: panes.lisp Log Message: Dummy implementation of restraining-pane. It doesn't really work, but it should if the layout protocol worked as specified. This is still an improvement over the previous version, which didn't display its children at all. Date: Tue Feb 22 04:09:18 2005 Author: ahefner Index: mcclim/panes.lisp diff -u mcclim/panes.lisp:1.149 mcclim/panes.lisp:1.150 --- mcclim/panes.lisp:1.149 Tue Feb 1 04:08:27 2005 +++ mcclim/panes.lisp Tue Feb 22 04:09:18 2005 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -;;; $Id: panes.lisp,v 1.149 2005/02/01 03:08:27 ahefner Exp $ +;;; $Id: panes.lisp,v 1.150 2005/02/22 03:09:18 ahefner Exp $ (in-package :clim-internals) @@ -1679,13 +1679,16 @@ ;;; RESTRAINING PANE -(defclass restraining-pane (composite-pane) ()) +(defclass restraining-pane (single-child-composite-pane) ()) (defun restraining-pane-p (pane) (typep pane 'restraining-pane)) (defmacro restraining ((&rest options) &body contents) `(make-pane 'restraining-pane ,@options :contents (list ,@contents))) + +(defmethod note-space-requirements-changed ((pane restraining-pane) child) + (declare (ignore pane child))) ;;; BBOARD PANE