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

Modified Files: pixie.lisp Log Message: Applied patch from Clinton Ebadi to call value-changed callback of slider.

--- /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp 2008/05/06 20:47:30 1.22 +++ /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp 2008/05/06 20:49:02 1.23 @@ -268,6 +268,13 @@ (defmethod handle-event ((pane pixie-slider-pane) (event pointer-button-release-event)) (with-slots (armed dragging value bounce-value repeating was-repeating) pane (setf was-repeating repeating) + (when armed + (setf armed t + (gadget-value pane :invoke-callback t) + (convert-position-to-value pane + (if (eq (gadget-orientation pane) :vertical) + (pointer-event-y event) + (pointer-event-x event))))) (when dragging (unless (eq dragging :inside) (setf armed nil