Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv32082

Modified Files: BUGS gadgets.lisp Log Message: * gadgets.lisp (make-scrollbar, update-scrollbar-adjustment): Set the gtk adjustment maximum value to (+ max-value thumb-size). I don't get it, but it seems to fix scrollbars for me.

--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS 2006/04/30 09:24:40 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS 2006/04/30 10:31:15 1.6 @@ -79,7 +79,7 @@ (FIXED) 15. The text cursor does not show the correct vertical position in climacs.

-16. +(FIXED?) 16. Scroll panes are now native widgets, but don't really behave. The scroll test works a little, many other examples don't. See comment in update-scrollbar-adjustment. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp 2006/04/23 17:36:28 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp 2006/04/30 10:31:15 1.4 @@ -86,8 +86,8 @@

(defun make-scrollbar (fn sheet) (let* ((min (df (gadget-min-value sheet))) - (max (df (gadget-max-value sheet))) (page-size (df (climi::scroll-bar-thumb-size sheet))) + (max (+ (df (gadget-max-value sheet)) page-size)) (adjustment (gtk_adjustment_new 0.0d0 min max 0.0d0 0.0d0 page-size))) (gtk_adjustment_set_value adjustment (df (gadget-value sheet))) (funcall fn adjustment))) @@ -227,9 +227,9 @@ (defun update-scrollbar-adjustment (sheet) (with-gtk () (let* ((min (df (gadget-min-value sheet))) - (max (df (gadget-max-value sheet))) (value (df (gadget-value sheet))) - (page-size (df (climi::scroll-bar-thumb-size sheet)))) + (page-size (df (climi::scroll-bar-thumb-size sheet))) + (max (+ (df (gadget-max-value sheet)) page-size))) (gtk_range_set_adjustment (mirror-widget (sheet-direct-mirror sheet)) (gtk_adjustment_new value min max 0.0d0 0.0d0 page-size)))))