[mcclim-cvs] CVS mcclim

[tmoore]

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