Index: Looks/pixie.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp,v
retrieving revision 1.21
diff -u -r1.21 pixie.lisp
--- Looks/pixie.lisp	20 Mar 2007 01:51:22 -0000	1.21
+++ Looks/pixie.lisp	6 May 2008 19:24:18 -0000
@@ -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