[mcclim-cvs] CVS mcclim

[thenriksen]

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."))