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

Modified Files: panes.lisp Log Message: LOWERED-PANE border-width defaults to 2 now.

LABEL-PANE align-y defaults to :center now.

Date: Tue Nov 29 14:18:28 2005 Author: gbaumann

Index: mcclim/panes.lisp diff -u mcclim/panes.lisp:1.161 mcclim/panes.lisp:1.162 --- mcclim/panes.lisp:1.161 Tue Nov 29 11:41:59 2005 +++ mcclim/panes.lisp Tue Nov 29 14:18:28 2005 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.

-;;; $Id: panes.lisp,v 1.161 2005/11/29 10:41:59 gbaumann Exp $ +;;; $Id: panes.lisp,v 1.162 2005/11/29 13:18:28 gbaumann Exp $

(in-package :clim-internals)

@@ -1736,7 +1736,10 @@

;;; LOWERED PANE

-(defclass lowered-pane (border-pane permanent-medium-sheet-output-mixin) ()) +(defclass lowered-pane (border-pane permanent-medium-sheet-output-mixin) + () + (:default-initargs + :border-width 2))

(defmacro lowering ((&rest options) &body contents) `(make-pane 'lowered-pane ,@options :contents (list ,@contents))) @@ -2133,9 +2136,9 @@ :initform :top :initarg :label-alignment :reader label-pane-label-alignment) - (background :initform *3d-normal-color*) - ) + (background :initform *3d-normal-color*)) (:default-initargs + :align-y :center :text-style (make-text-style :sans-serif nil nil)) (:documentation ""))