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*))