--- a/ScrollBar.st	Wed Aug 16 17:35:00 1995 +0200
+++ b/ScrollBar.st	Sat Aug 19 17:57:03 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.17 1995-08-11 20:27:02 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.18 1995-08-19 15:57:03 claus Exp $
 '!
 
 !ScrollBar class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.17 1995-08-11 20:27:02 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.18 1995-08-19 15:57:03 claus Exp $
 "
 !
 
@@ -549,16 +549,26 @@
     sep2 := elementSpacing * 2.
     (buttonLayout == #bottom) ifTrue:[
 	"buttons at bottom"
+"/
+"/ XX: I thought, that viewGravity shuld fix things automatically
+"/ XX: it seems not to do it (or I misused it ;-)
+"/ XX: anyway, viewGravity is an X special feature which is probably
+"/ XX: not available with other windowing systems. Therefore,
+"/ XX: the viewGravity depending code below is disabled.
+"/ XX: resize is somewhat slower, though.
+
 	thumbHeight := thumbHeight + borderWidth.
-	thumbHidden ifTrue:[
-	    bY := elementSpacing
-	] ifFalse:[
+"/ XX        thumbHidden ifTrue:[
+"/ XX           bY := elementSpacing
+"/ XX       ] ifFalse:[
 	    bY := thumbHeight + sep2.
-	].
+"/ XX       ].
+"XX"            button1 viewGravity:#North. 
+"XX"            button2 viewGravity:#North. 
 	(how == #smaller) ifTrue:[
 	    thumb extent:(thumbWidth @ thumbHeight).
-"/            button1 origin:(bwn @ (thumbHeight + sep2)).
-"/            button2 origin:(bwn @ (thumbHeight + sep2 + upHeight))
+"XX"            button1 origin:(bwn @ (thumbHeight + sep2)).
+"XX"            button2 origin:(bwn @ (thumbHeight + sep2 + upHeight))
 	] ifFalse:[
 	    button1 origin:(bwn @ bY).
 	    button2 origin:(bwn @ (bY + upHeight)).