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

[Andy Hefner]

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 , at options :contents (list , at contents)))
+
+(defmethod note-space-requirements-changed ((pane restraining-pane) child)
+  (declare (ignore pane child)))
 
 ;;; BBOARD PANE