[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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)))))