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

[Gilbert Baumann]

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 , at options :contents (list , at 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 ""))