[mcclim-cvs] CVS mcclim

[ahefner]

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

Modified Files:
	panes.lisp 
Log Message:
Move the vertical scroll bar to the right-hand side of the window.


--- /project/mcclim/cvsroot/mcclim/panes.lisp	2006/12/19 04:02:14	1.175
+++ /project/mcclim/cvsroot/mcclim/panes.lisp	2006/12/23 11:42:43	1.176
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.175 2006/12/19 04:02:14 ahefner Exp $
+;;; $Id: panes.lisp,v 1.176 2006/12/23 11:42:43 ahefner Exp $
 
 (in-package :clim-internals)
 
@@ -1983,15 +1983,13 @@
       
       (when vscrollbar
         (setf (sheet-transformation vscrollbar)
-              (make-translation-transformation 0 0))
+              (make-translation-transformation (- width *scrollbar-thickness*) 0))
         (allocate-space vscrollbar
                         *scrollbar-thickness*
                         (if hscrollbar (- height *scrollbar-thickness*) height)))
       (when hscrollbar
         (move-sheet hscrollbar
-                    (if vscrollbar
-                        *scrollbar-thickness*
-                        0)
+		    0
                     (- height *scrollbar-thickness*))
         (allocate-space hscrollbar
                         (if vscrollbar (- width *scrollbar-thickness*) width)
@@ -2026,7 +2024,7 @@
       (when viewport
         (setf (sheet-transformation viewport)
               (make-translation-transformation
-                   (+ x-spacing (if vscrollbar *scrollbar-thickness* 0))
+                   (+ x-spacing 0)
                    (+ y-spacing 0)))
         (allocate-space viewport
                         (- viewport-width (* 2 x-spacing))