--- a/ScrView.st	Sat Feb 20 18:36:31 1999 +0100
+++ b/ScrView.st	Wed Feb 24 17:56:06 1999 +0100
@@ -1084,11 +1084,14 @@
      or a full scrollBar."
 
     horizontalMini ~~ aBoolean ifTrue:[
-	horizontalMini := aBoolean.
-	self setupViews.
-	shown ifTrue:[
-	    self setupDimensionsConfigureScrolledView:false.
-	]
+        horizontalMini := aBoolean.
+        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+            horizontalMini := false.
+        ].
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensionsConfigureScrolledView:false.
+        ]
     ].
 
     "Created: / 7.3.1997 / 21:57:02 / cg"
@@ -1118,11 +1121,14 @@
      or a full scrollBar."
 
     verticalMini ~~ aBoolean ifTrue:[
-	verticalMini := aBoolean.
-	self setupViews.
-	shown ifTrue:[
-	    self setupDimensionsConfigureScrolledView:false.
-	]
+        verticalMini := aBoolean.
+        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+            verticalMini := false.
+        ].
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensionsConfigureScrolledView:false.
+        ]
     ]
 
     "Created: / 7.3.1997 / 21:56:57 / cg"
@@ -1771,19 +1777,13 @@
     hasVerticalScrollBar := isVertical.
     hasHorizontalScrollBar := isHorizontal.
 
-    noMiniScrollers := styleSheet at:'scrollBarNeverMini' default:false.
-
+    noMiniScrollers := styleSheet at:'scrollBar.neverMini' default:false.
     verticalMini := miniV.
-    verticalMini ifTrue:[
-	noMiniScrollers ifTrue:[
-	    verticalMini := false
-	]
-    ].
     horizontalMini := miniH.
-    horizontalMini ifTrue:[
-	noMiniScrollers ifTrue:[
-	    horizontalMini := false
-	]
+
+    noMiniScrollers == true ifTrue:[
+        verticalMini := false.
+        horizontalMini := false.
     ].
 
     self setupViews.
@@ -2045,5 +2045,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.90 1998-11-12 14:55:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.91 1999-02-24 16:56:06 cg Exp $'
 ! !

--- a/ScrollableView.st	Sat Feb 20 18:36:31 1999 +0100
+++ b/ScrollableView.st	Wed Feb 24 17:56:06 1999 +0100
@@ -1084,11 +1084,14 @@
      or a full scrollBar."
 
     horizontalMini ~~ aBoolean ifTrue:[
-	horizontalMini := aBoolean.
-	self setupViews.
-	shown ifTrue:[
-	    self setupDimensionsConfigureScrolledView:false.
-	]
+        horizontalMini := aBoolean.
+        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+            horizontalMini := false.
+        ].
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensionsConfigureScrolledView:false.
+        ]
     ].
 
     "Created: / 7.3.1997 / 21:57:02 / cg"
@@ -1118,11 +1121,14 @@
      or a full scrollBar."
 
     verticalMini ~~ aBoolean ifTrue:[
-	verticalMini := aBoolean.
-	self setupViews.
-	shown ifTrue:[
-	    self setupDimensionsConfigureScrolledView:false.
-	]
+        verticalMini := aBoolean.
+        (styleSheet at:'scrollBar.neverMini' default:false) == true ifTrue:[
+            verticalMini := false.
+        ].
+        self setupViews.
+        shown ifTrue:[
+            self setupDimensionsConfigureScrolledView:false.
+        ]
     ]
 
     "Created: / 7.3.1997 / 21:56:57 / cg"
@@ -1771,19 +1777,13 @@
     hasVerticalScrollBar := isVertical.
     hasHorizontalScrollBar := isHorizontal.
 
-    noMiniScrollers := styleSheet at:'scrollBarNeverMini' default:false.
-
+    noMiniScrollers := styleSheet at:'scrollBar.neverMini' default:false.
     verticalMini := miniV.
-    verticalMini ifTrue:[
-	noMiniScrollers ifTrue:[
-	    verticalMini := false
-	]
-    ].
     horizontalMini := miniH.
-    horizontalMini ifTrue:[
-	noMiniScrollers ifTrue:[
-	    horizontalMini := false
-	]
+
+    noMiniScrollers == true ifTrue:[
+        verticalMini := false.
+        horizontalMini := false.
     ].
 
     self setupViews.
@@ -2045,5 +2045,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.90 1998-11-12 14:55:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.91 1999-02-24 16:56:06 cg Exp $'
 ! !