[mcclim-cvs] CVS mcclim/Looks

[ahefner]

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