--- a/Scroller.st	Wed Apr 28 15:58:38 1999 +0200
+++ b/Scroller.st	Wed Apr 28 19:15:50 1999 +0200
@@ -30,7 +30,8 @@
 		DefaultGhostColor DefaultGhostFrameColor DefaultGhostLevel
 		DefaultFixThumbHeight DefaultEdgeStyle DefaultFullViewBackground
 		DefaultThumbEnteredColor DefaultThumbActiveLevel SnapBackDistance
-		DefaultMiddleButtonJump NewCursors DefaultThumbImage HandleImage'
+		DefaultMiddleButtonJump NewCursors DefaultThumbImage HandleImage
+		DefaultHScrollerHeight DefaultVScrollerWidth'
 	poolDictionaries:''
 	category:'Views-Interactors'
 !
@@ -388,6 +389,9 @@
     DefaultThumbImage := StyleSheet at:#'scroller.thumbImage'.
     HandleImage := StyleSheet at:#'scroller.handleImage'.
 
+    DefaultVScrollerWidth  := StyleSheet at:#'scroller.vScrollerWidth' default:nil.
+    DefaultHScrollerHeight := StyleSheet at:#'scroller.hScrollerHeight' default:nil.
+
     StyleSheet fileReadFailed ifTrue:[
         DefaultViewBackground := Grey.
         DefaultThumbColor := White.
@@ -401,7 +405,7 @@
      self updateStyleCache
     "
 
-    "Modified: / 19.5.1998 / 16:24:02 / cg"
+    "Modified: / 28.4.1999 / 18:26:42 / cg"
 ! !
 
 !Scroller methodsFor:'accessing'!
@@ -2274,16 +2278,20 @@
 
     orientation == #vertical ifTrue:[
         h := defExt y.
-        w := (device horizontalPixelPerMillimeter asFloat * 5) rounded.
+        (w := DefaultVScrollerWidth) isNil ifTrue:[
+            w := (device horizontalPixelPerMillimeter asFloat * 5) rounded
+        ]
     ] ifFalse:[
         w := defExt x.
-        h := (device verticalPixelPerMillimeter asFloat * 5) rounded.
+        (h := DefaultHScrollerHeight) isNil ifTrue:[
+            h := (device verticalPixelPerMillimeter asFloat * 5) rounded
+        ]
     ].
 
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: / 7.3.1999 / 00:08:10 / cg"
+    "Modified: / 28.4.1999 / 18:28:19 / cg"
 !
 
 thumbVisible
@@ -2311,5 +2319,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.125 1999-04-24 16:57:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.126 1999-04-28 17:15:50 cg Exp $'
 ! !