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

Modified Files: gadgets.lisp package.lisp Log Message:

Fix up scroll bars in Beagle. Use the high level gadget events to signal scroll bar changes to the application. Document the unintuitive scroll-bar-thumb-size slot in the scroll-bar gadget.

--- /project/mcclim/cvsroot/mcclim/gadgets.lisp 2006/03/29 10:43:37 1.98 +++ /project/mcclim/cvsroot/mcclim/gadgets.lisp 2006/03/30 12:07:59 1.99 @@ -460,8 +460,11 @@ :initform nil :reader scroll-bar-scroll-up-page-callback) (thumb-size :initarg :thumb-size :initform 1/4 - :accessor scroll-bar-thumb-size) - ) + :accessor scroll-bar-thumb-size + :documentation "The size of the scroll bar thumb (slug) in the + units of the gadget value. When the scroll bar is drawn the empty region of + the scroll bar and the thumb are drawn in proportion to the values of the + gadget range and thumb size.")) (:default-initargs :value 0 :min-value 0 :max-value 1 @@ -2853,6 +2856,7 @@

(defmethod handle-event ((gadget basic-gadget) (event callback-event)) (apply (callback-function event) + (event-gadget event) (event-client event) (event-client-id event) (event-other-args event))) --- /project/mcclim/cvsroot/mcclim/package.lisp 2006/03/15 22:56:54 1.53 +++ /project/mcclim/cvsroot/mcclim/package.lisp 2006/03/30 12:07:59 1.54 @@ -1947,6 +1947,7 @@ #:port-set-sheet-region #:port-set-sheet-transformation #:port-ungrab-pointer + #:queue-callback #:%set-port-keyboard-focus #:set-sheet-pointer-cursor #:synthesize-pointer-motion-event