--- a/ScrollBar.st	Mon Oct 10 04:03:47 1994 +0100
+++ b/ScrollBar.st	Fri Oct 28 04:25:37 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.7 1994-10-10 03:02:56 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.8 1994-10-28 03:25:21 claus Exp $
 '!
 
 !ScrollBar class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.7 1994-10-10 03:02:56 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.8 1994-10-28 03:25:21 claus Exp $
 "
 !
 
@@ -88,7 +88,7 @@
 initialize
     "setup; create the 2 buttons and a scroller"
 
-    |w h upForm downForm clr|
+    |clr|
 
     super initialize.
 
@@ -101,7 +101,6 @@
 
     button1 borderWidth:borderWidth.
     DefaultScrollerBordered ifFalse:[
-"/    StyleSheet name ~= #next ifTrue:[
 	thumb borderWidth:borderWidth.
     ].
     button2 borderWidth:borderWidth.