Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv1766

Modified Files: gadgets.lisp panes.lisp Log Message: Specify :orientation default initarg for radio button gadgets.

--- /project/mcclim/cvsroot/mcclim/gadgets.lisp 2008/02/19 22:26:06 1.108 +++ /project/mcclim/cvsroot/mcclim/gadgets.lisp 2008/05/09 19:12:14 1.109 @@ -550,7 +550,8 @@ () (:documentation "The value is a list of buttons") (:default-initargs - :value nil)) + :value nil + :orientation :vertical))

;; CHECK-BOX-CURRENT-SELECTION is just a synonym for GADGET-VALUE:

--- /project/mcclim/cvsroot/mcclim/panes.lisp 2008/01/30 21:21:44 1.189 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2008/05/09 19:12:14 1.190 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.

-;;; $Id: panes.lisp,v 1.189 2008/01/30 21:21:44 thenriksen Exp $ +;;; $Id: panes.lisp,v 1.190 2008/05/09 19:12:14 thenriksen Exp $

(in-package :clim-internals)

@@ -1074,6 +1074,7 @@ ((box-layout-orientation :initarg :box-layout-orientation :initform :vertical + :type (member :vertical :horizontal) :accessor box-layout-orientation)) (:documentation "Mixin class for layout panes, which want to behave like a HRACK/VRACK."))