[mcclim-cvs] CVS mcclim

[tmoore]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp:/tmp/cvs-serv3495

Modified Files:
	gadgets.lisp 
Log Message:
Fix some bit rot in the Beagle backend; not quite there.

--- /project/mcclim/cvsroot/mcclim/gadgets.lisp	2005/12/01 11:10:55	1.94
+++ /project/mcclim/cvsroot/mcclim/gadgets.lisp	2006/02/22 10:55:40	1.95
@@ -513,7 +513,11 @@
                             :reader scroll-bar-scroll-up-page-callback)
    (thumb-size :initarg :thumb-size :initform 1/4
                :accessor scroll-bar-thumb-size)
-   ))
+   )
+  (:default-initargs :value 0
+                     :min-value 0
+                     :max-value 1
+                     :orientation :vertical))
 
 (defmethod drag-callback ((pane scroll-bar) client gadget-id value)
   (declare (ignore client gadget-id))
@@ -1312,11 +1316,7 @@
    (old-tb-y2    :initform nil)
    ;;
    (all-new-p    :initform t) )
-  (:default-initargs :value 0
-                     :min-value 0
-                     :max-value 1
-                     :orientation :vertical
-                     :border-width 2
+  (:default-initargs :border-width 2
                      :border-style :inset
                      :background *3d-inner-color*))