[mcclim-cvs] CVS update: mcclim/panes.lisp
Gilbert Baumann
gbaumann at common-lisp.net
Tue Nov 29 13:18:29 UTC 2005
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 ""))
More information about the Mcclim-cvs
mailing list